Assassins - Ultimate CD Games Collection 2

home *** CD-ROM | disk | FTP | other *** search

/ Assassins - Ultimate CD Games Collection 2 / Assassins 2 - Ultimate Games No. 2 (1995)(Weird Science)[!][Amiga-CD32-CDTV].iso / misc / slamball_manager / autoexec.amos / autoexec.amosSourceCode next >

Wrap

AMOS Source Code | 1993-04-24 | 149KB | 3,840 lines

'SlamBall 'Written by Michael Keith Lysons 'Originally started Saturday 11th July 1992 as Footy Manager 'Resurrected 11th September 1992 as SlamBall '(c) M K Lysons 1993 Set Buffer 50 Close Editor Amos Lock Break Off Screen Open 0,320,260,8,Lowres : Flash Off Screen Open 1,320,260,8,Lowres : Flash Off Screen Open 2,320,260,8,Lowres : Flash Off Screen Open 3,640,260,8,Hires : Flash Off : Cls 0 Limit Mouse 128,42 To 447,298 NUMBER_OF_TEAMS=16 : NUMBER_OF_DIVISIONS=2 TEAMS_IN_DIVISION=NUMBER_OF_TEAMS/NUMBER_OF_DIVISIONS WIN_POINTS=2 : EQUAL_POINTS=1 CURRENT_WEEK=1 : TEMP_WEEK=1 THE_DRAW_FLAG=0 : FILE_OPEN_FLAG=0 WHICH_MATCH_FLAG=0 GAME_DISK$="SlamBall_Game_Disk:" Dir$=GAME_DISK$ FILENAME$="" ' NUMBER_OF_PLAYERS_MAXIMUM=10 TEAM_MAX=NUMBER_OF_TEAMS*NUMBER_OF_PLAYERS_MAXIMUM CURRENT_TEAM=16 : CURRENT_LETTER=0 CONTRACT_POINTS=0 : CONTRACT_QUIT=0 RESIGN_FLAG=0 : MANAGER_HAS_NOT_RESIGNED=0 : MANAGER_HAS_RESIGNED=1 FULL_BOX=3 : EDGE_TOP=5 : EDGE_BOTTOM=6 MENU_SCREEN=9 MAIN_SCREEN=6 DISPLAY_PLAYER_SCREEN=7 MANAGER_DISPLAY_SCREEN=8 '******************************************************************** '* GENERAL PROCEDURES * '******************************************************************** FILE_IS_NOT_OPEN=0 : FILE_IS_OPEN=1 : QUIT_MENU=0 : PROMOTE_FLAG=0 Procedure INITIALISE_VARIABLES_WHEN_GAME_LOADS INITIALISE_FIXTURES_ARRAY INITIALISE_TEAMNAMES_AND_STADIUMS INITIALISE_MANAGER_NAME_ARRAY INITIALISE_LETTERS_OF_NAME INITIALISE_TRAINING_MESSAGE_ARRAY INITIALISE_SQUAD_ARRAYS End Proc Procedure INITIALISE_VARIABLES Shared TEAM_MAX INITIALISE_NEW_SEASON_VARIABLES For PERSON=0 To TEAM_MAX INITIALISE_PLAYER_ARRAYS[PERSON] Next PERSON INITIALISE_MANAGER_VARIABLES INITIALISE_USER_TEAM End Proc Procedure INITIALISE_NEW_SEASON_VARIABLES INITIALISE_LEAGUE_ARRAYS INITIALISE_CUP_ARRAYS End Proc Procedure INITIALISE_NEW_GAME Shared TEAM_CASH(),CURRENT_TEAM,CURRENT_WEEK,CASH_FORWARD Shared RESIGN_FLAG,MANAGER_HAS_NOT_RESIGNED Shared TACTIC_USER_A,TACTIC_USER_B,TACTIC_USER_C,TACTIC_USER_D INITIALISE_VARIABLES MAKE_ORIGINAL_PLAYERS_AND_TRANSFER_LIST[CURRENT_TEAM] CASH_FORWARD=TEAM_CASH(CURRENT_TEAM) THE_END_OF_THE_WEEK Reserve Zone INITIALISE_MAIN_GAME_SCREEN RESIGN_FLAG=MANAGER_HAS_NOT_RESIGNED CURRENT_WEEK=1 TACTIC_USER_A=50 : TACTIC_USER_B=50 TACTIC_USER_C=50 : TACTIC_USER_D=50 End Proc Procedure RETRIEVE_INITIAL_STORED_DATA RETRIEVE_PLAYER_NAMES : Wait 150 RETRIEVE_MATCH_MESSAGES : Wait 150 End Proc Procedure MAKE_ORIGINAL_PLAYERS_AND_TRANSFER_LIST[TEAM] MAKE_ORIGINAL_PLAYERS MAKE_ORIGINAL_TRANSFER_LIST[TEAM] End Proc Procedure INITIALISE_MAIN_MENU_SCREEN Shared MENU_SCREEN Unpack MENU_SCREEN To 1 Screen 0 : Get Palette 1 Screen 2 : Get Palette 1 Screen 3 : Get Palette 1 Screen 1 CREATE_ZONES_FOR_MENU_SCREEN End Proc Procedure INITIALISE_MAIN_GAME_SCREEN Shared MAIN_SCREEN Unpack MAIN_SCREEN To 0 CREATE_ZONES_FOR_MAIN_SCREEN End Proc Procedure PLACE_TEXT_CENTRALLY[Y_POSITION,MESSAGE$,WIDTH] MESSAGE_LENGTH=Len(MESSAGE$) HALF_WIDTH=WIDTH/2 BEGIN_POSITION=HALF_WIDTH-((MESSAGE_LENGTH*8)/2) Text BEGIN_POSITION,Y_POSITION,MESSAGE$ End Proc Procedure MAIN_MENU_SELECTION Shared QUIT_MENU CHECK_MOUSE=Mouse Click WHICH_ZONE=Mouse Zone If CHECK_MOUSE=1 and WHICH_ZONE=1 INITIALISE_TEAMNAMES_AND_STADIUMS RESET_GATE_RECEIPTS USER_SELECTED_NEW_GAME End If If CHECK_MOUSE=1 and WHICH_ZONE=2 QUIT_MENU=1 INITIALISE_TEAMNAMES_AND_STADIUMS INITIALISE_MANAGER_NAME RESET_GATE_RECEIPTS End If If CHECK_MOUSE=1 and WHICH_ZONE=3 USER_SELECTED_CREDITS End If If CHECK_MOUSE=1 and WHICH_ZONE=4 LEAVE_GAME End If End Proc Procedure USER_SELECTED_CREDITS Screen 2 Cls 4 MAKE_BOX_FOR_FIXTURE_SCREEN Ink 7,3, : PLACE_TEXT_CENTRALLY[10,"Credits",Screen Width] Ink 1,3, Text 10,25,"Written by: Michael Keith Lysons" Text 10,45,"This game is a shareware product." Text 10,55,"If you like this game and play" Text 10,65,"it often then please send ï¿½5" Text 10,75,"to me at the following address;" PLACE_TEXT_CENTRALLY[95,"9 Glencourse Road",Screen Width] PLACE_TEXT_CENTRALLY[105,"Widnes",Screen Width] PLACE_TEXT_CENTRALLY[115,"Cheshire",Screen Width] PLACE_TEXT_CENTRALLY[125,"WA8 9JE",Screen Width] PLACE_TEXT_CENTRALLY[135,"England",Screen Width] Text 10,155,"It took me over 6 months to write so" Text 10,165,"I hope that you enjoy playing it!!" Text 10,175,"If you find any bugs or have any" Text 10,185,"comments then please write to me at" Text 10,195,"the above address." PLACE_TEXT_CENTRALLY[240,"Click a mouse button",Screen Width] Screen To Front 2 CHECK_FOR_MOUSE_CLICK Screen 1 Screen To Front 1 End Proc Procedure LEAVE_GAME Screen Close 0 : Screen Close 2 : Screen Close 3 Fade 3 : Wait 50 : Screen Close 1 End End Proc Procedure MAIN_GAME_MENU_SELECTION Shared NUMBER_OF_PLAYERS_MAXIMUM,CURRENT_WEEK,THE_DRAW_FLAG,CURRENT_TEAM Shared CURRENT_TRAINING,TRAINING_MAX,RESIGN_FLAG,MANAGER_HAS_RESIGNED Ink 2,6, : Text 132,57,"Week "+Str$(CURRENT_WEEK)-" "+" " If CURRENT_WEEK=2 and THE_DRAW_FLAG=0 MAKE_THE_DRAW[15] THE_DRAW_FLAG=1 End If If CURRENT_WEEK=11 and THE_DRAW_FLAG=0 MAKE_THE_DRAW[7] THE_DRAW_FLAG=1 End If If CURRENT_WEEK=18 and THE_DRAW_FLAG=0 MAKE_THE_DRAW[3] THE_DRAW_FLAG=1 End If If CURRENT_WEEK=25 and THE_DRAW_FLAG=0 MAKE_THE_DRAW[1] THE_DRAW_FLAG=1 End If CHECK_MOUSE=Mouse Click WHICH_ZONE=Mouse Zone If CHECK_MOUSE=1 and WHICH_ZONE=1 DISPLAY_LEAGUE_TABLE[1,8,10,62] End If If CHECK_MOUSE=1 and WHICH_ZONE=2 FIND_WHICH_CUP_ROUND_TO_DISPLAY End If If CHECK_MOUSE=1 and WHICH_ZONE=3 DISPLAY_LEAGUE_TABLE[9,16,10,62] End If If CHECK_MOUSE=1 and WHICH_ZONE=4 and CURRENT_WEEK>1 DISPLAY_LEAGUE_RESULTS[CURRENT_WEEK-1,10,49] End If If CHECK_MOUSE=1 and WHICH_ZONE=5 FIND_WHICH_FIXTURES_TO_DISPLAY End If If CHECK_MOUSE=1 and WHICH_ZONE=6 USER_SELECTED_MATCH_OPTION End If If CHECK_MOUSE=1 and WHICH_ZONE=7 DISPLAY_INITIAL_PLAYER_DATA[CURRENT_TEAM] FIND_WHICH_PLAYER_TO_DISPLAY[CURRENT_TEAM,Param] End If If CHECK_MOUSE=1 and WHICH_ZONE=8 DISPLAY_TRANSFER_LIST FIND_WHICH_TRANSFER_PLAYER_TO_DISPLAY[Param] End If If CHECK_MOUSE=1 and WHICH_ZONE=9 and CURRENT_TRAINING<TRAINING_MAX FIND_WHICH_ATTRIBUTES_TO_TRAIN End If If CHECK_MOUSE=1 and WHICH_ZONE=10 DISPLAY_MANAGER_DATA[CURRENT_TEAM] End If If CHECK_MOUSE=1 and WHICH_ZONE=11 STORE_ALL_DATA End If If CHECK_MOUSE=1 and WHICH_ZONE=12 RETRIEVE_ALL_DATA End If If CHECK_MOUSE=1 and WHICH_ZONE=13 RESIGN_FLAG=MANAGER_HAS_RESIGNED End If Randomize Timer End Proc Procedure USER_SELECTED_NEW_GAME Shared QUIT_MENU,MANAGER_NAME$,TEAMNAME$(),STADIUM$(),CURRENT_TEAM QUIT_MENU=1 MAKE_BOXES_FOR_ENTERING_NAME INITIALISE_LETTERS_OF_NAME ENTER_A_NAME["Enter Managers Name",18] : MANAGER_NAME$=Param$ INITIALISE_LETTERS_OF_NAME Text 24,60," " ENTER_A_NAME["Enter Team Name",14] : TEAMNAME$(CURRENT_TEAM)=Param$ INITIALISE_LETTERS_OF_NAME Text 24,60," " ENTER_A_NAME["Enter Stadium Name",18] : STADIUM$(CURRENT_TEAM)=Param$ GIVE_MANAGER_AN_AGE End Proc Procedure USER_SELECTED_MATCH_OPTION Shared LEAGUE_GOALS(),TEAM_CASH(),CURRENT_WEEK,THE_DRAW_FLAG Shared CURRENT_TEAM,CASH_FORWARD,NUMBER_OF_TEAMS RESET_GATE_RECEIPTS CASH_FORWARD=TEAM_CASH(CURRENT_TEAM) If CURRENT_WEEK<29 For TEAM=1 To NUMBER_OF_TEAMS LEAGUE_GOALS(TEAM)=0 Next TEAM GENERATE_LEAGUE_RESULTS LEAGUE_TABLE_SORT[1,8] LEAGUE_TABLE_SORT[9,16] End If If(CURRENT_WEEK=8) or(CURRENT_WEEK=15) or(CURRENT_WEEK=22) FIRST_LEG_CUP_MATCHES[CURRENT_WEEK] End If If(CURRENT_WEEK=10) or(CURRENT_WEEK=17) or(CURRENT_WEEK=24) SECOND_LEG_CUP_MATCHES[CURRENT_WEEK] End If If CURRENT_WEEK=29 GENERATE_SECOND_LEG_RESULTS[2] End If GRAPHIC_SCREEN_FADE THE_END_OF_THE_WEEK Inc CURRENT_WEEK THE_DRAW_FLAG=0 Ink 2,6, : Text 129,57," .Wait. " For TRANSFER=1 To 5 FIND_POSSIBLE_TRANSFER_BID Next TRANSFER For TRAINING=1 To 4 TRAIN_OTHER_TEAMS_PLAYERS Next TRAINING End Proc Procedure CHECK_FOR_MOUSE_CLICK Repeat Until Mouse Click End Proc Procedure MAKE_A_BOX[X1,Y1,X2,Y2,MAIN_BOX,THE_TOP_EDGE,THE_BOTTOM_EDGE] Ink MAIN_BOX,1, Bar X1,Y1 To X2,Y2 Ink THE_TOP_EDGE,11, Draw X1+1,Y1 To X2,Y1 : Draw X2,Y1 To X2,Y2 Ink THE_BOTTOM_EDGE,11 Draw X1,Y1 To X1,Y2 : Draw X1,Y2 To X2-1,Y2 End Proc Procedure MAKE_BOXES_FOR_MESSAGE Shared FULL_BOX,EDGE_TOP,EDGE_BOTTOM MAKE_A_BOX[3,10,316,22,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[3,73,316,183,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[3,235,316,247,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Ink 5,3, : Text 79,244,"Click a mouse button" End Proc Procedure GRAPHIC_SCREEN_FADE Screen To Front 0 Screen 0 End Proc Procedure CREATE_ZONES_FOR_MENU_SCREEN Reserve Zone 4 Set Zone 1,60,126 To 140,145 Set Zone 2,206,126 To 261,145 Set Zone 3,82,171 To 118,190 Set Zone 4,224,171 To 244,190 End Proc Procedure CREATE_ZONES_FOR_MAIN_SCREEN Reserve Zone 13 Set Zone 1,48,92 To 102,108 : Set Zone 2,132,92 To 186,108 Set Zone 3,216,92 To 270,108 : Set Zone 4,48,131 To 102,147 Set Zone 6,132,131 To 186,147 : Set Zone 5,216,131 To 270,147 Set Zone 7,48,171 To 102,187 : Set Zone 8,132,171 To 186,187 Set Zone 9,216,171 To 270,187 : Set Zone 10,32,208 To 86,224 Set Zone 11,99,208 To 153,224 : Set Zone 12,166,208 To 220,224 Set Zone 13,233,208 To 287,224 End Proc Procedure ENTER_FILENAME[MESSAGE$] Shared FILENAME$,FILE_OPEN_FLAG,FILE_IS_OPEN,FILE_IS_NOT_OPEN,GAME_DISK$ FILE_OPEN_FLAG=FILE_IS_NOT_OPEN FILENAME$=Fsel$(GAME_DISK$+"*.slamball","",MESSAGE$,"") If FILENAME$="" FILE_OPEN_FLAG=FILE_IS_NOT_OPEN Else FILENAME$=FILENAME$-".slamball"+".slamball" If MESSAGE$="Select File To Save" Open Out 1,FILENAME$ Print #1,FILENAME$ Close 1 FILE_OPEN_FLAG=FILE_IS_OPEN End If If MESSAGE$="Select File To Load" If Exist(FILENAME$) FILE_OPEN_FLAG=FILE_IS_OPEN Else Text 129,57," .Fail. " End If End If End If End Proc Procedure STORE_ALL_DATA Shared FILE_OPEN_FLAG,FILE_IS_OPEN ENTER_FILENAME["Select File To Save"] If FILE_OPEN_FLAG=FILE_IS_OPEN Ink 2,6, : Text 129,57," .Save. " STORE_LEAGUE_DATA STORE_CUP_DATA STORE_PLAYER_DATA STORE_MANAGER_DATA STORE_USER_TEAM_DATA End If Wait 150 End Proc Procedure RETRIEVE_ALL_DATA Shared FILE_OPEN_FLAG,FILE_IS_OPEN ENTER_FILENAME["Select File To Load"] If FILE_OPEN_FLAG=FILE_IS_OPEN Ink 2,6, : Text 129,57," .Wait. " INITIALISE_VARIABLES Ink 2,6, : Text 129,57," .Load. " RETRIEVE_LEAGUE_DATA RETRIEVE_CUP_DATA RETRIEVE_PLAYER_DATA RETRIEVE_MANAGER_DATA RETRIEVE_USER_TEAM_DATA End If Wait 150 End Proc '******************************************************************** ' '******************************************************************** '* LEAGUE PART * '******************************************************************** Dim TEAMNAME$(NUMBER_OF_TEAMS),LEAGUE_POSITION(NUMBER_OF_TEAMS),STADIUM$(NUMBER_OF_TEAMS) Dim GAMES_WON(NUMBER_OF_TEAMS),GAMES_DRAWN(NUMBER_OF_TEAMS) Dim GAMES_LOST(NUMBER_OF_TEAMS),GOALS_FOR(NUMBER_OF_TEAMS) Dim GOALS_AGAINST(NUMBER_OF_TEAMS),GOAL_DIFFERENCE(NUMBER_OF_TEAMS) Dim TEAM_POINTS(NUMBER_OF_TEAMS),LEAGUE_GOALS(NUMBER_OF_TEAMS) Dim GAME_A(1,1),GAME_B(1,1),GAME_C(1,1),GAME_D(1,1) Dim TEAM_FIXTURES(NUMBER_OF_TEAMS),ARRAY_OF_FIXTURES(224) Procedure INITIALISE_TEAMNAMES_AND_STADIUMS Shared TEAMNAME$(),STADIUM$(),LEAGUE_POSITION(),TEAM_FIXTURES(),NUMBER_OF_TEAMS For TEAM=1 To NUMBER_OF_TEAMS Read TEAMNAME$ : TEAMNAME$(TEAM)=TEAMNAME$ Read STADIUM$ : STADIUM$(TEAM)=STADIUM$ LEAGUE_POSITION(TEAM)=TEAM TEAM_FIXTURES(TEAM)=TEAM Next TEAM Data "Maimers","Wrath Field","Phantoms","The Ethereal Plain" Data "Hack n Slice","Carnage","Cowboys","Gunsling Towers" Data "Terror","Fear Heights","Deep Sleep","The Snooze Pit" Data "Raiders","Steeplewatch","Destroyers","The House Of Pain" Data "Armour Fist","The Armour Dome","Cutting Crew","Syphon City" Data "Steel Knights","The Steel Cavern","Psycho Crazees","The Mad House" Data "Death Demons","The Hell Pit","Pyrotechnics","Firefight Central" Data "Razor Blades","Knife Edge City","Raw Rockers","The Rockerdrome" End Proc Procedure INITIALISE_LEAGUE_ARRAYS Shared GAMES_WON(),GAMES_DRAWN(),GAMES_LOST(),GOALS_FOR(),NUMBER_OF_TEAMS Shared GOALS_AGAINST(),GOAL_DIFFERENCE(),TEAM_POINTS(),LEAGUE_GOALS() For TEAM=1 To NUMBER_OF_TEAMS GAMES_WON(TEAM)=0 : GAMES_DRAWN(TEAM)=0 : GAMES_LOST(TEAM)=0 GOALS_FOR(TEAM)=0 : GOALS_AGAINST(TEAM)=0 : GOAL_DIFFERENCE(TEAM)=0 TEAM_POINTS(TEAM)=0 : LEAGUE_GOALS(TEAM)=0 Next TEAM End Proc Procedure INITIALISE_FIXTURES_ARRAY Shared ARRAY_OF_FIXTURES() For INIT_LOOP=1 To 224 Read A_FIXTURE ARRAY_OF_FIXTURES(INIT_LOOP)=A_FIXTURE Next INIT_LOOP Data 1,2,3,4,5,6,7,8,6,1,8,3,2,5,4,7 Data 1,3,2,4,5,7,6,8,5,1,7,2,3,6,4,8 Data 1,4,2,3,8,5,6,7,7,1,8,2,4,6,5,3 Data 1,8,2,6,3,7,4,5,2,1,4,3,6,5,8,7 Data 1,6,3,8,5,2,7,4,3,1,4,2,7,5,8,6 Data 1,5,2,7,6,3,8,4,4,1,3,2,5,8,7,6 Data 1,7,2,8,6,4,3,5,8,1,6,2,7,3,5,4 Data 1,2,3,4,5,6,7,8,6,1,8,3,2,5,4,7 Data 1,3,2,4,5,7,6,8,5,1,7,2,3,6,4,8 Data 1,4,2,3,8,5,6,7,7,1,8,2,4,6,5,3 Data 1,8,2,6,3,7,4,5,2,1,4,3,6,5,8,7 Data 1,6,3,8,5,2,7,4,3,1,4,2,7,5,8,6 Data 1,5,2,7,6,3,8,4,4,1,3,2,5,8,7,6 Data 1,7,2,8,6,4,3,5,8,1,6,2,7,3,5,4 End Proc Procedure CREATE_ZONES_FOR_FIXTURES_SELECTOR Reserve Zone 5 Set Zone 1,44,55 To 264,71 : Set Zone 2,84,110 To 122,143 Set Zone 3,187,110 To 225,143 : Set Zone 4,44,160 To 264,176 Set Zone 5,44,231 To 264,247 End Proc Procedure DISPLAY_FIXTURE_SELECT_SCREEN Shared FULL_BOX,EDGE_TOP,EDGE_BOTTOM MAKE_A_BOX[52,8,264,28,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[52,55,264,71,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[84,110,122,143,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[187,110,225,143,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[52,160,264,176,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[52,231,264,247,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[140,113,170,140,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Ink 7,3, PLACE_TEXT_CENTRALLY[21,"Fixture Selector",320] PLACE_TEXT_CENTRALLY[66,"This weeks fixtures",320] Ink 1,3, : Text 96,130,"Up" : Text 191,130,"Down" Ink 7,3, : PLACE_TEXT_CENTRALLY[171,"Click here when ready",Screen Width] Ink 5,3, : PLACE_TEXT_CENTRALLY[242,"Click here when finished",Screen Width] End Proc Procedure FIND_WHICH_FIXTURES_TO_DISPLAY Shared CURRENT_WEEK,TEMP_WEEK,SELECT_FIXTURES_SCREEN,CURRENT_WEEK Screen 1 : Cls 4 DISPLAY_FIXTURE_SELECT_SCREEN CREATE_ZONES_FOR_FIXTURES_SELECTOR CANCEL=0 Screen To Front 1 : Ink 1,3, Repeat CHECK_MOUSE=Mouse Click WHICH_ZONE=Mouse Zone If TEMP_WEEK<10 Text 143,130," "+Str$(TEMP_WEEK)-" "+" " End If If TEMP_WEEK>9 Text 147,130,Str$(TEMP_WEEK)-" " End If If CHECK_MOUSE=1 and WHICH_ZONE=1 and CURRENT_WEEK<=28 DISPLAY_LEAGUE_FIXTURES[CURRENT_WEEK,10,49] End If If CHECK_MOUSE=1 and WHICH_ZONE=2 Inc TEMP_WEEK If TEMP_WEEK>28 TEMP_WEEK=1 End If End If If CHECK_MOUSE=1 and WHICH_ZONE=3 Dec TEMP_WEEK If TEMP_WEEK<1 TEMP_WEEK=28 End If End If If CHECK_MOUSE=1 and WHICH_ZONE=4 DISPLAY_LEAGUE_FIXTURES[TEMP_WEEK,10,49] End If If CHECK_MOUSE=1 and WHICH_ZONE=5 CANCEL=1 End If Until CANCEL=1 Reserve Zone GRAPHIC_SCREEN_FADE End Proc Procedure DISPLAY_RESULTS_FIXTURES_SCREEN[THE_SCREEN] Shared FULL_BOX,EDGE_TOP,EDGE_BOTTOM Screen THE_SCREEN : Y_POS=41 : TEMP=10 : Cls 4 For X=1 To 4 MAKE_A_BOX[5,Y_POS,127,Y_POS+TEMP,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[130,Y_POS,147,Y_POS+TEMP,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[150,Y_POS,167,Y_POS+TEMP,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[170,Y_POS,188,Y_POS+TEMP,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[191,Y_POS,313,Y_POS+TEMP,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Add Y_POS,20 Next X Add Y_POS,27 For X=1 To 4 MAKE_A_BOX[5,Y_POS,127,Y_POS+TEMP,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[130,Y_POS,147,Y_POS+TEMP,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[150,Y_POS,167,Y_POS+TEMP,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[170,Y_POS,188,Y_POS+TEMP,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[191,Y_POS,313,Y_POS+TEMP,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Add Y_POS,20 Next X MAKE_A_BOX[6,236,312,246,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Ink 5,3, : PLACE_TEXT_CENTRALLY[244,"CLICK A MOUSE BUTTON",320] End Proc Procedure DISPLAY_LEAGUE_FIXTURES[WEEK_NUMBER,X_POS,Y_POS] Shared TEAMNAME$(),RESULTS_SCREEN,SELECT_FIXTURES_SCREEN Shared GAME_A(),GAME_B(),GAME_C(),GAME_D() Shared FULL_BOX,EDGE_TOP,EDGE_BOTTOM,NUMBER_OF_TEAMS DISPLAY_RESULTS_FIXTURES_SCREEN[2] For DISPLAY_FIXTURE_LOOP=1 To 2 If DISPLAY_FIXTURE_LOOP=1 WORK_OUT_LEAGUE_FIXTURES[WEEK_NUMBER,0] THE_DIVISION$="Division 1" End If If DISPLAY_FIXTURE_LOOP=2 WORK_OUT_LEAGUE_FIXTURES[WEEK_NUMBER,NUMBER_OF_TEAMS/2] THE_DIVISION$="Division 2" End If MAKE_A_BOX[78,2,248,12,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Ink 7,11, : Text 86,10,"Fixtures for Week "+Str$(WEEK_NUMBER)-" " MAKE_A_BOX[118,Y_POS-23,200,Y_POS-13,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Ink 7,11, : Text 120,Y_POS-15,THE_DIVISION$ : Ink 1,11, Text X_POS,Y_POS,TEAMNAME$(GAME_A(1,0)) : Text X_POS+186,Y_POS,TEAMNAME$(GAME_A(1,1)) Text X_POS+145,Y_POS,"V" Text X_POS,Y_POS+20,TEAMNAME$(GAME_B(1,0)) : Text X_POS+186,Y_POS+20,TEAMNAME$(GAME_B(1,1)) Text X_POS+145,Y_POS+20,"V" Text X_POS,Y_POS+40,TEAMNAME$(GAME_C(1,0)) : Text X_POS+186,Y_POS+40,TEAMNAME$(GAME_C(1,1)) Text X_POS+145,Y_POS+40,"V" Text X_POS,Y_POS+60,TEAMNAME$(GAME_D(1,0)) : Text X_POS+186,Y_POS+60,TEAMNAME$(GAME_D(1,1)) Text X_POS+145,Y_POS+60,"V" Y_POS=Y_POS+107 Next DISPLAY_FIXTURE_LOOP Screen To Front 2 CHECK_FOR_MOUSE_CLICK Screen To Front 1 : Screen 1 CREATE_ZONES_FOR_FIXTURES_SELECTOR End Proc Procedure DISPLAY_LEAGUE_RESULTS[WEEK_NUMBER,X_POS,Y_POS] Shared TEAMNAME$(),LEAGUE_GOALS(),RESULTS_SCREEN Shared GAME_A(),GAME_B(),GAME_C(),GAME_D() Shared FULL_BOX,EDGE_TOP,EDGE_BOTTOM,NUMBER_OF_TEAMS If WEEK_NUMBER>28 : WEEK_NUMBER=28 : End If DISPLAY_RESULTS_FIXTURES_SCREEN[1] For DISPLAY_RESULTS_LOOP=1 To 2 If DISPLAY_RESULTS_LOOP=1 WORK_OUT_LEAGUE_FIXTURES[WEEK_NUMBER,0] THE_DIVISION$="Division 1" End If If DISPLAY_RESULTS_LOOP=2 WORK_OUT_LEAGUE_FIXTURES[WEEK_NUMBER,NUMBER_OF_TEAMS/2] THE_DIVISION$="Division 2" End If MAKE_A_BOX[86,2,240,12,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[118,Y_POS-23,200,Y_POS-13,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Ink 7,3, : Text 88,10,"Results for Week "+Str$(WEEK_NUMBER)-" " Ink 7,3, : PLACE_TEXT_CENTRALLY[Y_POS-15,THE_DIVISION$,320] Ink 1,3, Text X_POS,Y_POS,TEAMNAME$(GAME_A(1,0)) : Text X_POS+121,Y_POS,Str$(LEAGUE_GOALS(GAME_A(1,0)))-" " Text X_POS+186,Y_POS,TEAMNAME$(GAME_A(1,1)) : Text X_POS+161,Y_POS,Str$(LEAGUE_GOALS(GAME_A(1,1)))-" " Text X_POS,Y_POS+20,TEAMNAME$(GAME_B(1,0)) : Text X_POS+121,Y_POS+20,Str$(LEAGUE_GOALS(GAME_B(1,0)))-" " Text X_POS+186,Y_POS+20,TEAMNAME$(GAME_B(1,1)) : Text X_POS+161,Y_POS+20,Str$(LEAGUE_GOALS(GAME_B(1,1)))-" " Text X_POS,Y_POS+40,TEAMNAME$(GAME_C(1,0)) : Text X_POS+121,Y_POS+40,Str$(LEAGUE_GOALS(GAME_C(1,0)))-" " Text X_POS+186,Y_POS+40,TEAMNAME$(GAME_C(1,1)) : Text X_POS+161,Y_POS+40,Str$(LEAGUE_GOALS(GAME_C(1,1)))-" " Text X_POS,Y_POS+60,TEAMNAME$(GAME_D(1,0)) : Text X_POS+121,Y_POS+60,Str$(LEAGUE_GOALS(GAME_D(1,0)))-" " Text X_POS+186,Y_POS+60,TEAMNAME$(GAME_D(1,1)) : Text X_POS+161,Y_POS+60,Str$(LEAGUE_GOALS(GAME_D(1,1)))-" " Y_POS=Y_POS+107 Next DISPLAY_RESULTS_LOOP Screen To Front 1 CHECK_FOR_MOUSE_CLICK GRAPHIC_SCREEN_FADE End Proc Procedure DISPLAY_LEAGUE_TABLE_SCREEN[DIVISION$] Shared FULL_BOX,EDGE_TOP,EDGE_BOTTOM Screen 1 : Y_POS=54 : TEMP=10 : Cls 4 For X=1 To 8 MAKE_A_BOX[6,Y_POS,128,Y_POS+TEMP,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[131,Y_POS,148,Y_POS+TEMP,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[151,Y_POS,168,Y_POS+TEMP,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[171,Y_POS,188,Y_POS+TEMP,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[191,Y_POS,208,Y_POS+TEMP,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[211,Y_POS,236,Y_POS+TEMP,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[239,Y_POS,264,Y_POS+TEMP,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[267,Y_POS,292,Y_POS+TEMP,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[295,Y_POS,312,Y_POS+TEMP,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Add Y_POS,20 Next X MAKE_A_BOX[112,8,202,18,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Ink 7,11, : Text 118,16,DIVISION$ MAKE_A_BOX[6,35,312,45,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Ink 7,11 : Text 8,43,"Name" Text 134,43,"P" : Text 154,43,"W" : Text 174,43,"D" : Text 194,43,"L" Text 214,43,"Gf" : Text 242,43,"Ga" : Text 270,43,"Gd" : Text 296,43,"Pt" MAKE_A_BOX[6,236,312,246,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Ink 5,11, : Text 78,244,"CLICK A MOUSE BUTTON" End Proc Procedure DISPLAY_LEAGUE_TABLE[TEAMS_A,TEAMS_B,X_POS,Y_POS] Shared TEAMNAME$(),LEAGUE_POSITION(),GAMES_WON(),GAMES_DRAWN() Shared GAMES_LOST(),GOALS_FOR(),GOALS_AGAINST(),GOAL_DIFFERENCE() Shared TEAM_POINTS(),LEAGUE_GOALS(),TEAMS,TEAMS_IN_DIVISION Shared CURRENT_WEEK If TEAMS_A=1 : THE_DIVISION$="Division 1" : End If If TEAMS_A=9 : THE_DIVISION$="Division 2" : End If DISPLAY_LEAGUE_TABLE_SCREEN[THE_DIVISION$] Ink 1,11, : TEMP_WEEK=CURRENT_WEEK If TEMP_WEEK>29 : TEMP_WEEK=29 : End If For DISPLAY_TABLE_LOOP=TEAMS_A To TEAMS_B Text X_POS,Y_POS,TEAMNAME$(LEAGUE_POSITION(DISPLAY_TABLE_LOOP)) Text X_POS+122,Y_POS,Str$(TEMP_WEEK-1)-" " Text X_POS+142,Y_POS,Str$(GAMES_WON(LEAGUE_POSITION(DISPLAY_TABLE_LOOP)))-" " Text X_POS+162,Y_POS,Str$(GAMES_DRAWN(LEAGUE_POSITION(DISPLAY_TABLE_LOOP)))-" " Text X_POS+182,Y_POS,Str$(GAMES_LOST(LEAGUE_POSITION(DISPLAY_TABLE_LOOP)))-" " Text X_POS+202,Y_POS,Str$(GOALS_FOR(LEAGUE_POSITION(DISPLAY_TABLE_LOOP)))-" " Text X_POS+230,Y_POS,Str$(GOALS_AGAINST(LEAGUE_POSITION(DISPLAY_TABLE_LOOP)))-" " Text X_POS+258,Y_POS,Str$(GOAL_DIFFERENCE(LEAGUE_POSITION(DISPLAY_TABLE_LOOP)))-" " Text X_POS+286,Y_POS,Str$(TEAM_POINTS(LEAGUE_POSITION(DISPLAY_TABLE_LOOP)))-" " Y_POS=Y_POS+20 Next DISPLAY_TABLE_LOOP Screen To Front 1 CHECK_FOR_MOUSE_CLICK GRAPHIC_SCREEN_FADE End Proc Procedure WORK_OUT_LEAGUE_FIXTURES[WEEK_NUMBER,WHICH_DIVISION] Shared TEAM_FIXTURES(),ARRAY_OF_FIXTURES() Shared GAME_A(),GAME_B(),GAME_C(),GAME_D() COUNTER=0 For FIND_FIXTURES_LOOP=1 To 28 If WEEK_NUMBER=FIND_FIXTURES_LOOP GAME_A(1,0)=TEAM_FIXTURES(ARRAY_OF_FIXTURES(1+COUNTER)+WHICH_DIVISION) GAME_A(1,1)=TEAM_FIXTURES(ARRAY_OF_FIXTURES(2+COUNTER)+WHICH_DIVISION) GAME_B(1,0)=TEAM_FIXTURES(ARRAY_OF_FIXTURES(3+COUNTER)+WHICH_DIVISION) GAME_B(1,1)=TEAM_FIXTURES(ARRAY_OF_FIXTURES(4+COUNTER)+WHICH_DIVISION) GAME_C(1,0)=TEAM_FIXTURES(ARRAY_OF_FIXTURES(5+COUNTER)+WHICH_DIVISION) GAME_C(1,1)=TEAM_FIXTURES(ARRAY_OF_FIXTURES(6+COUNTER)+WHICH_DIVISION) GAME_D(1,0)=TEAM_FIXTURES(ARRAY_OF_FIXTURES(7+COUNTER)+WHICH_DIVISION) GAME_D(1,1)=TEAM_FIXTURES(ARRAY_OF_FIXTURES(8+COUNTER)+WHICH_DIVISION) End If Add COUNTER,8 Next FIND_FIXTURES_LOOP End Proc Procedure WORK_OUT_THE_RESULTS[THE_HOME_TEAM,THE_AWAY_TEAM] Shared LEAGUE_GOALS(),TEAM_POINTS() Shared GOALS_FOR(),GOALS_AGAINST(),GOAL_DIFFERENCE() Shared GAMES_WON(),GAMES_LOST(),GAMES_DRAWN() Shared CURRENT_TEAM,WIN_POINTS,EQUAL_POINTS Add GOALS_FOR(THE_HOME_TEAM),LEAGUE_GOALS(THE_HOME_TEAM) Add GOALS_AGAINST(THE_HOME_TEAM),LEAGUE_GOALS(THE_AWAY_TEAM) GOAL_DIFFERENCE(THE_HOME_TEAM)=GOALS_FOR(THE_HOME_TEAM)-GOALS_AGAINST(THE_HOME_TEAM) Add GOALS_FOR(THE_AWAY_TEAM),LEAGUE_GOALS(THE_AWAY_TEAM) Add GOALS_AGAINST(THE_AWAY_TEAM),LEAGUE_GOALS(THE_HOME_TEAM) GOAL_DIFFERENCE(THE_AWAY_TEAM)=GOALS_FOR(THE_AWAY_TEAM)-GOALS_AGAINST(THE_AWAY_TEAM) If LEAGUE_GOALS(THE_HOME_TEAM)>LEAGUE_GOALS(THE_AWAY_TEAM) Inc GAMES_WON(THE_HOME_TEAM) : Inc GAMES_LOST(THE_AWAY_TEAM) Add TEAM_POINTS(THE_HOME_TEAM),WIN_POINTS ALTER_TEAM_FAME[THE_HOME_TEAM,1,1] ALTER_TEAM_FAME[THE_AWAY_TEAM,1,2] If THE_HOME_TEAM=CURRENT_TEAM : CHANGE_MANAGERS_RATING[1,1,1] : End If If THE_AWAY_TEAM=CURRENT_TEAM : CHANGE_MANAGERS_RATING[1,1,2] : End If End If If LEAGUE_GOALS(THE_AWAY_TEAM)>LEAGUE_GOALS(THE_HOME_TEAM) Inc GAMES_WON(THE_AWAY_TEAM) : Inc GAMES_LOST(THE_HOME_TEAM) Add TEAM_POINTS(THE_AWAY_TEAM),WIN_POINTS ALTER_TEAM_FAME[THE_AWAY_TEAM,1,1] ALTER_TEAM_FAME[THE_HOME_TEAM,1,2] If THE_AWAY_TEAM=CURRENT_TEAM : CHANGE_MANAGERS_RATING[1,1,1] : End If If THE_HOME_TEAM=CURRENT_TEAM : CHANGE_MANAGERS_RATING[1,1,2] : End If End If If LEAGUE_GOALS(THE_HOME_TEAM)=LEAGUE_GOALS(THE_AWAY_TEAM) Inc GAMES_DRAWN(THE_HOME_TEAM) : Inc GAMES_DRAWN(THE_AWAY_TEAM) Add TEAM_POINTS(THE_HOME_TEAM),EQUAL_POINTS Add TEAM_POINTS(THE_AWAY_TEAM),EQUAL_POINTS End If End Proc Procedure LEAGUE_TABLE_SORT[TEAMS_A,TEAMS_B] Shared TEAM_POINTS(),GOALS_FOR(),GOAL_DIFFERENCE() Shared LEAGUE_POSITION(),GAMES_WON() For OUTER_LOOP=TEAMS_A To TEAMS_B For I=TEAMS_A To TEAMS_B-1 If TEAM_POINTS(LEAGUE_POSITION(I))<TEAM_POINTS(LEAGUE_POSITION(I+1)) Swap LEAGUE_POSITION(I),LEAGUE_POSITION(I+1) End If Next I Next OUTER_LOOP For OUTER_LOOP=TEAMS_A To TEAMS_B For I=TEAMS_A To TEAMS_B-1 If TEAM_POINTS(LEAGUE_POSITION(I))=TEAM_POINTS(LEAGUE_POSITION(I+1)) and GOAL_DIFFERENCE(LEAGUE_POSITION(I))<GOAL_DIFFERENCE(LEAGUE_POSITION(I+1)) Swap LEAGUE_POSITION(I),LEAGUE_POSITION(I+1) End If Next I Next OUTER_LOOP For OUTER_LOOP=TEAMS_A To TEAMS_B For I=TEAMS_A To TEAMS_B-1 If TEAM_POINTS(LEAGUE_POSITION(I))=TEAM_POINTS(LEAGUE_POSITION(I+1)) and GOAL_DIFFERENCE(LEAGUE_POSITION(I))=GOAL_DIFFERENCE(LEAGUE_POSITION(I+1)) and GOALS_FOR(LEAGUE_POSITION(I))<GOALS_FOR(LEAGUE_POSITION(I+1)) Swap LEAGUE_POSITION(I),LEAGUE_POSITION(I+1) End If Next I Next OUTER_LOOP End Proc Procedure STORE_LEAGUE_DATA Shared TEAMNAME$(),LEAGUE_POSITION(),GAMES_WON(),GAMES_DRAWN() Shared GAMES_LOST(),GOALS_FOR(),GOALS_AGAINST(),GOAL_DIFFERENCE() Shared TEAM_POINTS(),LEAGUE_GOALS(),STADIUM$() Shared GATE_RECEIPTS(),SPONSOR(),PRIZE_MONEY(),WAGE_BILL() Shared TEAM_FAME(),TEAM_CASH(),TEAM_FIXTURES() Shared NUMBER_OF_TEAMS,FILENAME$ STORE_FILENAME$=FILENAME$-".slamball"+".league_data" Open Out 1,STORE_FILENAME$ For STORING_LOOP=1 To NUMBER_OF_TEAMS Print #1,TEAMNAME$(STORING_LOOP) Print #1,STADIUM$(STORING_LOOP) Print #1,LEAGUE_POSITION(STORING_LOOP) Print #1,GAMES_WON(STORING_LOOP) Print #1,GAMES_DRAWN(STORING_LOOP) Print #1,GAMES_LOST(STORING_LOOP) Print #1,GOALS_FOR(STORING_LOOP) Print #1,GOALS_AGAINST(STORING_LOOP) Print #1,GOAL_DIFFERENCE(STORING_LOOP) Print #1,TEAM_POINTS(STORING_LOOP) Print #1,LEAGUE_GOALS(STORING_LOOP) Print #1,GATE_RECEIPTS(STORING_LOOP) Print #1,SPONSOR(STORING_LOOP) Print #1,WAGE_BILL(STORING_LOOP) Print #1,PRIZE_MONEY(STORING_LOOP) Print #1,TEAM_CASH(STORING_LOOP) Print #1,TEAM_FAME(STORING_LOOP) Print #1,TEAM_FIXTURES(STORING_LOOP) Next STORING_LOOP Close 1 End Proc Procedure RETRIEVE_LEAGUE_DATA Shared TEAMNAME$(),LEAGUE_POSITION(),GAMES_WON(),GAMES_DRAWN() Shared GAMES_LOST(),GOALS_FOR(),GOALS_AGAINST(),GOAL_DIFFERENCE() Shared TEAM_POINTS(),LEAGUE_GOALS(),STADIUM$() Shared GATE_RECEIPTS(),SPONSOR(),PRIZE_MONEY(),WAGE_BILL() Shared TEAM_FAME(),TEAM_CASH(),TEAM_FIXTURES() Shared NUMBER_OF_TEAMS,FILENAME$ RETRIEVE_FILENAME$=FILENAME$-".slamball"+".league_data" Open In 1,RETRIEVE_FILENAME$ For RETRIEVING_LOOP=1 To NUMBER_OF_TEAMS Input #1,TEAMNAME$(RETRIEVING_LOOP) Input #1,STADIUM$(RETRIEVING_LOOP) Input #1,LEAGUE_POSITION(RETRIEVING_LOOP) Input #1,GAMES_WON(RETRIEVING_LOOP) Input #1,GAMES_DRAWN(RETRIEVING_LOOP) Input #1,GAMES_LOST(RETRIEVING_LOOP) Input #1,GOALS_FOR(RETRIEVING_LOOP) Input #1,GOALS_AGAINST(RETRIEVING_LOOP) Input #1,GOAL_DIFFERENCE(RETRIEVING_LOOP) Input #1,TEAM_POINTS(RETRIEVING_LOOP) Input #1,LEAGUE_GOALS(RETRIEVING_LOOP) Input #1,GATE_RECEIPTS(RETRIEVING_LOOP) Input #1,SPONSOR(RETRIEVING_LOOP) Input #1,WAGE_BILL(RETRIEVING_LOOP) Input #1,PRIZE_MONEY(RETRIEVING_LOOP) Input #1,TEAM_CASH(RETRIEVING_LOOP) Input #1,TEAM_FAME(RETRIEVING_LOOP) Input #1,TEAM_FIXTURES(RETRIEVING_LOOP) Next RETRIEVING_LOOP Close 1 End Proc '******************************************************************** ' '******************************************************************** ' CUP PART * '******************************************************************** Dim PICK_LIST(NUMBER_OF_TEAMS),PICKED(NUMBER_OF_TEAMS) Dim THE_DRAW(NUMBER_OF_TEAMS),GOALS_HOME(NUMBER_OF_TEAMS),GOALS_AWAY(NUMBER_OF_TEAMS) Dim ROUND_1(16),ROUND_Q(8),ROUND_S(4),ROUND_F(2) Dim GOALS_HOME_1(16),GOALS_AWAY_1(16),GOALS_TOTAL_1(16) Dim GOALS_HOME_Q(16),GOALS_AWAY_Q(16),GOALS_TOTAL_Q(16) Dim GOALS_HOME_S(16),GOALS_AWAY_S(16),GOALS_TOTAL_S(16) Dim GOALS_HOME_F(16),GOALS_AWAY_F(16),GOALS_TOTAL_F(16) Procedure INITIALISE_CUP_ARRAYS INITIALISE_CUP_RECORD_ARRAYS INITIALISE_PICK_LIST_ARRAY INITIALISE_PICKED_ARRAY End Proc Procedure INITIALISE_CUP_RECORD_ARRAYS Shared GOALS_HOME_1(),GOALS_AWAY_1(),GOALS_TOTAL_1() Shared GOALS_HOME_Q(),GOALS_AWAY_Q(),GOALS_TOTAL_Q() Shared GOALS_HOME_S(),GOALS_AWAY_S(),GOALS_TOTAL_S() Shared GOALS_HOME_F(),GOALS_AWAY_F(),GOALS_TOTAL_F() Shared ROUND_1(),ROUND_Q(),ROUND_S(),ROUND_F(),NUMBER_OF_TEAMS For X=1 To NUMBER_OF_TEAMS GOALS_HOME_1(X)=0 : GOALS_AWAY_1(X)=0 : GOALS_TOTAL_1(X)=0 GOALS_HOME_Q(X)=0 : GOALS_AWAY_Q(X)=0 : GOALS_TOTAL_Q(X)=0 GOALS_HOME_S(X)=0 : GOALS_AWAY_S(X)=0 : GOALS_TOTAL_S(X)=0 GOALS_HOME_F(X)=0 : GOALS_AWAY_F(X)=0 : GOALS_TOTAL_F(X)=0 ROUND_1(X)=0 : ROUND_Q(X/2)=0 : ROUND_S(X/4)=0 : ROUND_F(X/8)=0 Next X End Proc Procedure INITIALISE_PICK_LIST_ARRAY Shared PICK_LIST(),NUMBER_OF_TEAMS For X=1 To NUMBER_OF_TEAMS PICK_LIST(X)=X Next X End Proc Procedure INITIALISE_PICKED_ARRAY Shared PICKED(),NUMBER_OF_TEAMS For X=1 To NUMBER_OF_TEAMS PICKED(X)=0 Next X End Proc Procedure DISPLAY_CUP_WINNERS_MESSAGE Screen 2 : Cls 4 : MAKE_BOXES_FOR_MESSAGE Ink 7,3, : PLACE_TEXT_CENTRALLY[19,"Team Owners",Screen Width] Ink 1,3, : Text 8,85,"We are absolutely delighted!!" Text 8,105,"To win the Cup is a great honour" Text 8,125,"for the club. You have managed" Text 8,145,"and coached the team astutely." Text 8,165,"Long may the success continue!!" Screen To Front 2 CHECK_FOR_MOUSE_CLICK End Proc Procedure DISPLAY_CUP_LOSERS_MESSAGE Screen 2 : Cls 4 : MAKE_BOXES_FOR_MESSAGE Ink 7,3, : PLACE_TEXT_CENTRALLY[19,"Team Owners",Screen Width] Ink 1,3, : Text 8,85,"We are relatively happy!" Text 8,105,"We came close to winning the Cup" Text 8,125,"which would have been good for the" Text 8,145,"club. However, you have done well." Text 8,165,"Maybe next year we can go one better!" Screen To Front 2 CHECK_FOR_MOUSE_CLICK End Proc Procedure CREATE_ZONES_FOR_CUP_SELECTOR Reserve Zone 5 Set Zone 1,28,44 To 115,89 : Set Zone 2,200,44 To 286,89 Set Zone 3,28,158 To 115,203 : Set Zone 4,200,158 To 286,203 Set Zone 5,60,238 To 248,253 End Proc Procedure DISPLAY_MAIN_CUP_SCREEN Shared FULL_BOX,EDGE_TOP,EDGE_BOTTOM Cls 4 MAKE_A_BOX[28,44,115,89,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[200,44,286,89,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[28,158,115,203,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[200,158,286,203,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[60,238,248,253,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[28,8,286,18,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Ink 7,3, : Text 108,16,"Cup Selector" : Text 44,71,"Round 1" Text 215,62,"Quarter" : Text 224,76,"Final" Text 56,177,"Semi" : Text 52,191,"Final" Text 223,185,"Final" Ink 6,3, : Text 120,248,"Main Menu" CREATE_ZONES_FOR_CUP_SELECTOR End Proc Procedure MAKE_BOXES_FOR_DISPLAYING_ROUNDS Shared FULL_BOX,EDGE_TOP,EDGE_BOTTOM MAKE_A_BOX[67,2,264,12,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Ink 7,11, : Text 70,10,"Cup Fixtures And Results" End Proc Procedure FIND_WHICH_CUP_ROUND_TO_DISPLAY Shared CURRENT_WEEK Screen 1 DISPLAY_MAIN_CUP_SCREEN CANCEL=0 : Screen To Front 1 Repeat CHECK_MOUSE=Mouse Click WHICH_ZONE=Mouse Zone If CHECK_MOUSE=1 and WHICH_ZONE=1 and CURRENT_WEEK>=2 DISPLAY_ROUND_1[10,49] End If If CHECK_MOUSE=1 and WHICH_ZONE=2 and CURRENT_WEEK>=11 DISPLAY_ROUND_Q[10,49] End If If CHECK_MOUSE=1 and WHICH_ZONE=3 and CURRENT_WEEK>=18 DISPLAY_ROUND_S[10,49] End If If CHECK_MOUSE=1 and WHICH_ZONE=4 and CURRENT_WEEK>=25 DISPLAY_ROUND_F[10,49] End If If CHECK_MOUSE=1 and WHICH_ZONE=5 CANCEL=1 End If Until CANCEL=1 Reserve Zone GRAPHIC_SCREEN_FADE End Proc Procedure MAKE_THE_DRAW[ROUND] Shared PICK_LIST(),PICKED(),THE_DRAW(),GOALS_HOME(),GOALS_AWAY() INITIALISE_PICKED_ARRAY COUNTER=1 Repeat TEMP_VALUE=Rnd(ROUND)+1 If PICKED(TEMP_VALUE)=0 THE_DRAW(COUNTER)=PICK_LIST(TEMP_VALUE) PICKED(TEMP_VALUE)=1 Inc COUNTER End If Until COUNTER=(ROUND)+2 For X=1 To 16 GOALS_HOME(X)=0 : GOALS_AWAY(X)=0 Next X If ROUND=15 : FIRST_ROUND_DRAW : End If If ROUND=7 : QUARTER_ROUND_DRAW : End If If ROUND=3 : SEMI_ROUND_DRAW : End If If ROUND=1 : FINAL_ROUND_DRAW : End If End Proc Procedure FIRST_ROUND_DRAW Shared ROUND_1(),THE_DRAW() For X=1 To 16 ROUND_1(X)=THE_DRAW(X) Next X End Proc Procedure QUARTER_ROUND_DRAW Shared ROUND_Q(),THE_DRAW() For X=1 To 8 ROUND_Q(X)=THE_DRAW(X) Next X End Proc Procedure SEMI_ROUND_DRAW Shared ROUND_S(),THE_DRAW() For X=1 To 4 ROUND_S(X)=THE_DRAW(X) Next X End Proc Procedure FINAL_ROUND_DRAW Shared ROUND_F(),THE_DRAW() For X=1 To 2 ROUND_F(X)=THE_DRAW(X) Next X End Proc Procedure DISPLAY_ROUND_1[X_POS,Y_POS] Shared TEAMNAME$(),ROUND_1(),GOALS_HOME_1(),NUMBER_OF_TEAMS Shared GOALS_AWAY_1(),GOALS_TOTAL_1() Shared FULL_BOX,EDGE_TOP,EDGE_BOTTOM TEMP_Y_POS=Y_POS DISPLAY_RESULTS_FIXTURES_SCREEN[2] MAKE_BOXES_FOR_DISPLAYING_ROUNDS MAKE_A_BOX[67,20,264,30,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Text 80,28,"First Round First Leg" WIN_A=1 : WIN_B=1 : Ink 1,11, For X=1 To(NUMBER_OF_TEAMS) Step 2 Text X_POS,Y_POS,TEAMNAME$(ROUND_1(X)) Text X_POS+121,Y_POS,Str$(GOALS_HOME_1(ROUND_1(X)))-" " Text X_POS+161,Y_POS,Str$(GOALS_AWAY_1(ROUND_1(X+1)))-" " Text X_POS+186,Y_POS,TEAMNAME$(ROUND_1(X+1)) Add Y_POS,20 If X=7 : Add Y_POS,27 : End If Next X Screen To Front 2 CHECK_FOR_MOUSE_CLICK Cls 4 DISPLAY_RESULTS_FIXTURES_SCREEN[2] MAKE_BOXES_FOR_DISPLAYING_ROUNDS MAKE_A_BOX[67,20,264,30,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Text 78,28,"First Round Second Leg" Y_POS=TEMP_Y_POS For X=1 To(NUMBER_OF_TEAMS) Step 2 WIN_A=1 : WIN_B=1 If GOALS_TOTAL_1(ROUND_1(X))>GOALS_TOTAL_1(ROUND_1(X+1)) WIN_A=1 : WIN_B=0 End If If GOALS_TOTAL_1(ROUND_1(X))<GOALS_TOTAL_1(ROUND_1(X+1)) WIN_A=0 : WIN_B=1 End If Ink WIN_B,11, Text X_POS,Y_POS,TEAMNAME$(ROUND_1(X+1)) Text X_POS+121,Y_POS,Str$(GOALS_HOME_1(ROUND_1(X+1)))-" " Ink WIN_A,11, Text X_POS+161,Y_POS,Str$(GOALS_AWAY_1(ROUND_1(X)))-" " Text X_POS+186,Y_POS,TEAMNAME$(ROUND_1(X)) Add Y_POS,20 If X=7 : Add Y_POS,27 : End If Next X CHECK_FOR_MOUSE_CLICK Screen 1 DISPLAY_MAIN_CUP_SCREEN Screen To Front 1 End Proc Procedure DISPLAY_ROUND_Q[X_POS,Y_POS] Shared TEAMNAME$(),ROUND_Q(),GOALS_HOME_Q(),NUMBER_OF_TEAMS Shared GOALS_AWAY_Q(),GOALS_TOTAL_Q() Shared FULL_BOX,EDGE_TOP,EDGE_BOTTOM DISPLAY_RESULTS_FIXTURES_SCREEN[2] MAKE_BOXES_FOR_DISPLAYING_ROUNDS MAKE_A_BOX[67,20,264,30,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Text 74,28,"Quarter Final First Leg" WIN_A=1 : WIN_B=1 : Ink 1,11, For X=1 To(NUMBER_OF_TEAMS/2) Step 2 Text X_POS,Y_POS,TEAMNAME$(ROUND_Q(X)) Text X_POS+121,Y_POS,Str$(GOALS_HOME_Q(ROUND_Q(X)))-" " Text X_POS+161,Y_POS,Str$(GOALS_AWAY_Q(ROUND_Q(X+1)))-" " Text X_POS+186,Y_POS,TEAMNAME$(ROUND_Q(X+1)) Add Y_POS,20 Next X Add Y_POS,27 MAKE_A_BOX[67,132,264,142,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Text 70,140,"Quarter Final Second Leg" For X=1 To(NUMBER_OF_TEAMS/2) Step 2 WIN_A=1 : WIN_B=1 If GOALS_TOTAL_Q(ROUND_Q(X))>GOALS_TOTAL_Q(ROUND_Q(X+1)) WIN_A=1 : WIN_B=0 End If If GOALS_TOTAL_Q(ROUND_Q(X))<GOALS_TOTAL_Q(ROUND_Q(X+1)) WIN_A=0 : WIN_B=1 End If Ink WIN_B,11, Text X_POS,Y_POS,TEAMNAME$(ROUND_Q(X+1)) Text X_POS+121,Y_POS,Str$(GOALS_HOME_Q(ROUND_Q(X+1)))-" " Ink WIN_A,11, Text X_POS+161,Y_POS,Str$(GOALS_AWAY_Q(ROUND_Q(X)))-" " Text X_POS+186,Y_POS,TEAMNAME$(ROUND_Q(X)) Add Y_POS,20 Next X Screen To Front 2 CHECK_FOR_MOUSE_CLICK Screen 1 DISPLAY_MAIN_CUP_SCREEN Screen To Front 1 End Proc Procedure DISPLAY_ROUND_S[X_POS,Y_POS] Shared TEAMNAME$(),ROUND_S(),GOALS_HOME_S(),NUMBER_OF_TEAMS Shared GOALS_AWAY_S(),GOALS_TOTAL_S() Shared FULL_BOX,EDGE_TOP,EDGE_BOTTOM DISPLAY_RESULTS_FIXTURES_SCREEN[2] MAKE_BOXES_FOR_DISPLAYING_ROUNDS MAKE_A_BOX[67,16,264,26,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Text 82,24,"Semi Final First Leg" WIN_A=1 : WIN_B=1 : Ink 1,11, For X=1 To(NUMBER_OF_TEAMS/4) Step 2 Text X_POS,Y_POS,TEAMNAME$(ROUND_S(X)) Text X_POS+121,Y_POS,Str$(GOALS_HOME_S(ROUND_S(X)))-" " Text X_POS+161,Y_POS,Str$(GOALS_AWAY_S(ROUND_S(X+1)))-" " Text X_POS+186,Y_POS,TEAMNAME$(ROUND_S(X+1)) Add Y_POS,20 Next X Add Y_POS,67 MAKE_A_BOX[67,132,264,142,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Ink 6,11, : Text 80,140,"Semi Final Second Leg" For X=1 To(NUMBER_OF_TEAMS/4) Step 2 WIN_A=1 : WIN_B=1 If GOALS_TOTAL_S(ROUND_S(X))>GOALS_TOTAL_S(ROUND_S(X+1)) WIN_A=1 : WIN_B=0 End If If GOALS_TOTAL_S(ROUND_S(X))<GOALS_TOTAL_S(ROUND_S(X+1)) WIN_A=0 : WIN_B=1 End If Ink WIN_B,11, Text X_POS,Y_POS,TEAMNAME$(ROUND_S(X+1)) Text X_POS+121,Y_POS,Str$(GOALS_HOME_S(ROUND_S(X+1)))-" " Ink WIN_A,11, Text X_POS+161,Y_POS,Str$(GOALS_AWAY_S(ROUND_S(X)))-" " Text X_POS+186,Y_POS,TEAMNAME$(ROUND_S(X)) Add Y_POS,20 Next X Screen To Front 2 CHECK_FOR_MOUSE_CLICK Screen 1 DISPLAY_MAIN_CUP_SCREEN Screen To Front 1 End Proc Procedure DISPLAY_ROUND_F[X_POS,Y_POS] Shared TEAMNAME$(),ROUND_F(),GOALS_HOME_F(),GOALS_AWAY_F() Shared FULL_BOX,EDGE_TOP,EDGE_BOTTOM DISPLAY_RESULTS_FIXTURES_SCREEN[2] MAKE_BOXES_FOR_DISPLAYING_ROUNDS MAKE_A_BOX[67,16,264,26,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Ink 1,11 : Text 126,24,"Cup Final" Text X_POS,Y_POS,TEAMNAME$(ROUND_F(2)) Text X_POS+121,Y_POS,Str$(GOALS_HOME_F(ROUND_F(2)))-" " Text X_POS+161,Y_POS,Str$(GOALS_AWAY_F(ROUND_F(1)))-" " Text X_POS+186,Y_POS,TEAMNAME$(ROUND_F(1)) Screen To Front 2 CHECK_FOR_MOUSE_CLICK Screen 1 DISPLAY_MAIN_CUP_SCREEN Screen To Front 1 End Proc Procedure FIRST_LEG_CUP_MATCHES[WEEK_NUMBER] If WEEK_NUMBER=8 : GENERATE_FIRST_LEG_RESULTS[16] : End If If WEEK_NUMBER=15 : GENERATE_FIRST_LEG_RESULTS[8] : End If If WEEK_NUMBER=22 : GENERATE_FIRST_LEG_RESULTS[4] : End If End Proc Procedure SECOND_LEG_CUP_MATCHES[WEEK_NUMBER] If WEEK_NUMBER=10 : GENERATE_SECOND_LEG_RESULTS[16] : End If If WEEK_NUMBER=17 : GENERATE_SECOND_LEG_RESULTS[8] : End If If WEEK_NUMBER=24 : GENERATE_SECOND_LEG_RESULTS[4] : End If End Proc Procedure GENERATE_FIRST_LEG_RESULTS[ROUND] Shared THE_DRAW() For X=1 To ROUND Step 2 THE_HOME_TEAM=(THE_DRAW(X)) : THE_AWAY_TEAM=(THE_DRAW(X+1)) SEE_IF_USER_WATCHES_MATCH[THE_HOME_TEAM,THE_AWAY_TEAM,ROUND] GENERATE_RESULT[THE_HOME_TEAM,THE_AWAY_TEAM,Param,2] Next X If ROUND=16 : ROUND_1_RESULTS[ROUND] : End If If ROUND=8 : ROUND_Q_RESULTS[ROUND] : End If If ROUND=4 : ROUND_S_RESULTS[ROUND] : End If End Proc Procedure GENERATE_SECOND_LEG_RESULTS[ROUND] Shared GOALS_HOME(),GOALS_AWAY(),THE_DRAW() For X=1 To ROUND Step 2 THE_HOME_TEAM=(THE_DRAW(X+1)) : THE_AWAY_TEAM=(THE_DRAW(X)) SEE_IF_USER_WATCHES_MATCH[THE_HOME_TEAM,THE_AWAY_TEAM,ROUND] GENERATE_LEG_TWO_RESULTS[THE_HOME_TEAM,THE_AWAY_TEAM,Param,2] Next X If ROUND=16 : ROUND_1_RESULTS[ROUND] : ROUND_1_WINNERS : End If If ROUND=8 : ROUND_Q_RESULTS[ROUND] : ROUND_Q_WINNERS : End If If ROUND=4 : ROUND_S_RESULTS[ROUND] : ROUND_S_WINNERS : End If If ROUND=2 : ROUND_F_RESULTS[ROUND] : ROUND_F_WINNERS : End If End Proc Procedure ROUND_1_RESULTS[ROUND] Shared GOALS_HOME(),GOALS_AWAY(),GOALS_HOME_1(),GOALS_AWAY_1() Shared GOALS_TOTAL_1(),ROUND_1() For X=1 To ROUND Step 2 GOALS_HOME_1(ROUND_1(X))=GOALS_HOME(ROUND_1(X)) GOALS_AWAY_1(ROUND_1(X))=GOALS_AWAY(ROUND_1(X)) GOALS_TOTAL_1(ROUND_1(X))=GOALS_HOME(ROUND_1(X))+GOALS_AWAY(ROUND_1(X)) GOALS_HOME_1(ROUND_1(X+1))=GOALS_HOME(ROUND_1(X+1)) GOALS_AWAY_1(ROUND_1(X+1))=GOALS_AWAY(ROUND_1(X+1)) GOALS_TOTAL_1(ROUND_1(X+1))=GOALS_HOME(ROUND_1(X+1))+GOALS_AWAY(ROUND_1(X+1)) Next X End Proc Procedure ROUND_1_WINNERS Shared ROUND_1(),GOALS_TOTAL_1(),PICK_LIST() COUNTER=1 For X=1 To 16 Step 2 If GOALS_TOTAL_1(ROUND_1(X))>GOALS_TOTAL_1(ROUND_1(X+1)) PICK_LIST(COUNTER)=ROUND_1(X) TEAM_WON=ROUND_1(X) : TEAM_LOST=ROUND_1(X+1) Else PICK_LIST(COUNTER)=ROUND_1(X+1) TEAM_WON=ROUND_1(X+1) : TEAM_LOST=ROUND_1(X) End If ALTER_TEAM_FAME[TEAM_WON,1,1] : ALTER_TEAM_FAME[TEAM_LOST,2,2] Inc COUNTER Next X End Proc Procedure ROUND_Q_RESULTS[ROUND] Shared GOALS_HOME(),GOALS_AWAY(),GOALS_HOME_Q(),GOALS_AWAY_Q() Shared GOALS_TOTAL_Q(),ROUND_Q() For X=1 To ROUND Step 2 GOALS_HOME_Q(ROUND_Q(X))=GOALS_HOME(ROUND_Q(X)) GOALS_AWAY_Q(ROUND_Q(X))=GOALS_AWAY(ROUND_Q(X)) GOALS_TOTAL_Q(ROUND_Q(X))=GOALS_HOME(ROUND_Q(X))+GOALS_AWAY(ROUND_Q(X)) GOALS_HOME_Q(ROUND_Q(X+1))=GOALS_HOME(ROUND_Q(X+1)) GOALS_AWAY_Q(ROUND_Q(X+1))=GOALS_AWAY(ROUND_Q(X+1)) GOALS_TOTAL_Q(ROUND_Q(X+1))=GOALS_HOME(ROUND_Q(X+1))+GOALS_AWAY(ROUND_Q(X+1)) Next X End Proc Procedure ROUND_Q_WINNERS Shared ROUND_Q(),GOALS_TOTAL_Q(),PICK_LIST() COUNTER=1 For X=1 To 8 Step 2 If GOALS_TOTAL_Q(ROUND_Q(X))>GOALS_TOTAL_Q(ROUND_Q(X+1)) PICK_LIST(COUNTER)=ROUND_Q(X) TEAM_WON=ROUND_Q(X) : TEAM_LOST=ROUND_Q(X+1) Else PICK_LIST(COUNTER)=ROUND_Q(X+1) TEAM_WON=ROUND_Q(X+1) : TEAM_LOST=ROUND_Q(X) End If ALTER_TEAM_FAME[TEAM_WON,2,1] : ALTER_TEAM_FAME[TEAM_LOST,2,2] Inc COUNTER Next X End Proc Procedure ROUND_S_RESULTS[ROUND] Shared GOALS_HOME(),GOALS_AWAY(),GOALS_HOME_S(),GOALS_AWAY_S() Shared GOALS_TOTAL_S(),ROUND_S() For X=1 To ROUND Step 2 GOALS_HOME_S(ROUND_S(X))=GOALS_HOME(ROUND_S(X)) GOALS_AWAY_S(ROUND_S(X))=GOALS_AWAY(ROUND_S(X)) GOALS_TOTAL_S(ROUND_S(X))=GOALS_HOME(ROUND_S(X))+GOALS_AWAY(ROUND_S(X)) GOALS_HOME_S(ROUND_S(X+1))=GOALS_HOME(ROUND_S(X+1)) GOALS_AWAY_S(ROUND_S(X+1))=GOALS_AWAY(ROUND_S(X+1)) GOALS_TOTAL_S(ROUND_S(X+1))=GOALS_HOME(ROUND_S(X+1))+GOALS_AWAY(ROUND_S(X+1)) Next X End Proc Procedure ROUND_S_WINNERS Shared ROUND_S(),GOALS_TOTAL_S(),PICK_LIST() COUNTER=1 For X=1 To 4 Step 2 If GOALS_TOTAL_S(ROUND_S(X))>GOALS_TOTAL_S(ROUND_S(X+1)) PICK_LIST(COUNTER)=ROUND_S(X) TEAM_WON=ROUND_S(X) : TEAM_LOST=ROUND_S(X+1) Else PICK_LIST(COUNTER)=ROUND_S(X+1) TEAM_WON=ROUND_S(X+1) : TEAM_LOST=ROUND_S(X) End If ALTER_TEAM_FAME[TEAM_WON,3,1] : ALTER_TEAM_FAME[TEAM_LOST,2,2] Inc COUNTER Next X End Proc Procedure ROUND_F_RESULTS[ROUND] Shared GOALS_HOME(),GOALS_AWAY(),GOALS_HOME_F(),GOALS_AWAY_F() Shared GOALS_TOTAL_F(),ROUND_F() GOALS_HOME_F(ROUND_F(2))=GOALS_HOME(ROUND_F(2)) GOALS_AWAY_F(ROUND_F(2))=GOALS_AWAY(ROUND_F(2)) GOALS_TOTAL_F(ROUND_F(2))=GOALS_HOME(ROUND_F(2))+GOALS_AWAY(ROUND_F(2)) GOALS_HOME_F(ROUND_F(1))=GOALS_HOME(ROUND_F(1)) GOALS_AWAY_F(ROUND_F(1))=GOALS_AWAY(ROUND_F(1)) GOALS_TOTAL_F(ROUND_F(1))=GOALS_HOME(ROUND_F(1))+GOALS_AWAY(ROUND_F(1)) End Proc Procedure ROUND_F_WINNERS Shared ROUND_F(),GOALS_TOTAL_F(),TEAM_CASH(),PRIZE_MONEY(),CURRENT_TEAM If GOALS_TOTAL_F(ROUND_F(1))>GOALS_TOTAL_F(ROUND_F(2)) Add TEAM_CASH(ROUND_F(1)),150000 : PRIZE_MONEY(ROUND_F(1))=150000 If ROUND_F(1)=CURRENT_TEAM : DISPLAY_CUP_WINNERS_MESSAGE : End If Add TEAM_CASH(ROUND_F(2)),75000 : PRIZE_MONEY(ROUND_F(2))=75000 If ROUND_F(2)=CURRENT_TEAM : DISPLAY_CUP_LOSERS_MESSAGE : End If TEAM_WON=ROUND_F(1) : TEAM_LOST=ROUND_F(2) Else Add TEAM_CASH(ROUND_F(2)),150000 : PRIZE_MONEY(ROUND_F(2))=150000 If ROUND_F(2)=CURRENT_TEAM : DISPLAY_CUP_WINNERS_MESSAGE : End If Add TEAM_CASH(ROUND_F(1)),75000 : PRIZE_MONEY(ROUND_F(1))=75000 If ROUND_F(1)=CURRENT_TEAM : DISPLAY_CUP_LOSERS_MESSAGE : End If TEAM_WON=ROUND_F(2) : TEAM_LOST=ROUND_F(1) End If ALTER_TEAM_FAME[TEAM_WON,5,1] : ALTER_TEAM_FAME[TEAM_LOST,2,2] End Proc Procedure STORE_CUP_DATA Shared FILENAME$,NUMBER_OF_TEAMS Shared THE_DRAW(),GOALS_HOME(),GOALS_AWAY() Shared ROUND_1(),GOALS_HOME_1(),GOALS_AWAY_1(),GOALS_TOTAL_1() Shared ROUND_Q(),GOALS_HOME_Q(),GOALS_AWAY_Q(),GOALS_TOTAL_Q() Shared ROUND_S(),GOALS_HOME_S(),GOALS_AWAY_S(),GOALS_TOTAL_S() Shared ROUND_F(),GOALS_HOME_F(),GOALS_AWAY_F(),GOALS_TOTAL_F() STORE_FILENAME$=FILENAME$-".slamball"+".cup_data" Open Out 1,STORE_FILENAME$ For STORING_LOOP=1 To NUMBER_OF_TEAMS Print #1,THE_DRAW(STORING_LOOP) Print #1,GOALS_HOME(STORING_LOOP) Print #1,GOALS_AWAY(STORING_LOOP) Next STORING_LOOP Close 1 STORE_FILENAME$=FILENAME$-".slamball"+".all_cup_data" Open Out 1,STORE_FILENAME$ For STORING_LOOP=1 To NUMBER_OF_TEAMS Print #1,ROUND_1(STORING_LOOP) Print #1,GOALS_HOME_1(STORING_LOOP) Print #1,GOALS_AWAY_1(STORING_LOOP) Print #1,GOALS_TOTAL_1(STORING_LOOP) Print #1,GOALS_HOME_Q(STORING_LOOP) Print #1,GOALS_AWAY_Q(STORING_LOOP) Print #1,GOALS_TOTAL_Q(STORING_LOOP) Print #1,GOALS_HOME_S(STORING_LOOP) Print #1,GOALS_AWAY_S(STORING_LOOP) Print #1,GOALS_TOTAL_S(STORING_LOOP) Print #1,GOALS_HOME_F(STORING_LOOP) Print #1,GOALS_AWAY_F(STORING_LOOP) Print #1,GOALS_TOTAL_F(STORING_LOOP) Next STORING_LOOP For STORING_LOOP=1 To NUMBER_OF_TEAMS/2 Print #1,ROUND_Q(STORING_LOOP) Next STORING_LOOP For STORING_LOOP=1 To NUMBER_OF_TEAMS/4 Print #1,ROUND_S(STORING_LOOP) Next STORING_LOOP For STORING_LOOP=1 To NUMBER_OF_TEAMS/8 Print #1,ROUND_F(STORING_LOOP) Next STORING_LOOP Close 1 End Proc Procedure RETRIEVE_CUP_DATA Shared FILENAME$,FILE_OPEN_FLAG,NUMBER_OF_TEAMS Shared THE_DRAW(),GOALS_HOME(),GOALS_AWAY() Shared ROUND_1(),GOALS_HOME_1(),GOALS_AWAY_1(),GOALS_TOTAL_1() Shared ROUND_Q(),GOALS_HOME_Q(),GOALS_AWAY_Q(),GOALS_TOTAL_Q() Shared ROUND_S(),GOALS_HOME_S(),GOALS_AWAY_S(),GOALS_TOTAL_S() Shared ROUND_F(),GOALS_HOME_F(),GOALS_AWAY_F(),GOALS_TOTAL_F() RETRIEVE_FILENAME$=FILENAME$-".slamball"+".cup_data" Open In 1,RETRIEVE_FILENAME$ For RETRIEVING_LOOP=1 To NUMBER_OF_TEAMS Input #1,THE_DRAW(RETRIEVING_LOOP) Input #1,GOALS_HOME(RETRIEVING_LOOP) Input #1,GOALS_AWAY(RETRIEVING_LOOP) Next RETRIEVING_LOOP Close 1 RETRIEVE_FILENAME$=FILENAME$-".slamball"+".all_cup_data" Open In 1,RETRIEVE_FILENAME$ For RETRIEVING_LOOP=1 To NUMBER_OF_TEAMS Input #1,ROUND_1(RETRIEVING_LOOP) Input #1,GOALS_HOME_1(RETRIEVING_LOOP) Input #1,GOALS_AWAY_1(RETRIEVING_LOOP) Input #1,GOALS_TOTAL_1(RETRIEVING_LOOP) Input #1,GOALS_HOME_Q(RETRIEVING_LOOP) Input #1,GOALS_AWAY_Q(RETRIEVING_LOOP) Input #1,GOALS_TOTAL_Q(RETRIEVING_LOOP) Input #1,GOALS_HOME_S(RETRIEVING_LOOP) Input #1,GOALS_AWAY_S(RETRIEVING_LOOP) Input #1,GOALS_TOTAL_S(RETRIEVING_LOOP) Input #1,GOALS_HOME_F(RETRIEVING_LOOP) Input #1,GOALS_AWAY_F(RETRIEVING_LOOP) Input #1,GOALS_TOTAL_F(RETRIEVING_LOOP) Next RETRIEVING_LOOP For RETRIEVING_LOOP=1 To NUMBER_OF_TEAMS/2 Input #1,ROUND_Q(RETRIEVING_LOOP) Next RETRIEVING_LOOP For RETRIEVING_LOOP=1 To NUMBER_OF_TEAMS/4 Input #1,ROUND_S(RETRIEVING_LOOP) Next RETRIEVING_LOOP For RETRIEVING_LOOP=1 To NUMBER_OF_TEAMS/8 Input #1,ROUND_F(RETRIEVING_LOOP) Next RETRIEVING_LOOP Close 1 End Proc '******************************************************************** ' '******************************************************************** '* PLAYERS PART * '******************************************************************** Dim FIRST_NAME$(156),SECOND_NAME$(156) Dim NAME$(TEAM_MAX),AGE(TEAM_MAX),POSITION(TEAM_MAX) Dim MORALE(TEAM_MAX),KNOWLEDGE(TEAM_MAX),INJURY_LENGTH(TEAM_MAX),INJURIES(TEAM_MAX) Dim TRANSFER(TEAM_MAX),PRICE(TEAM_MAX),CLUB_TO_PAY(TEAM_MAX),SKILL_TOTAL(TEAM_MAX) Dim CONTRACT(TEAM_MAX),WEEKLY_WAGE(TEAM_MAX),WAGE_REQUIRED(TEAM_MAX) Dim WAGE_OFFER(TEAM_MAX),CONTRACT_ACCEPTED(TEAM_MAX) Dim SEASONS_WITH_CLUB(TEAM_MAX),GAMES_SEASON(TEAM_MAX),GAMES_CAREER(TEAM_MAX) Dim GOALS_SEASON(TEAM_MAX),GOALS_CAREER(TEAM_MAX) Dim STRENGTH(TEAM_MAX),SPEED(TEAM_MAX),DEXTERITY(TEAM_MAX) Dim INSTINCT(TEAM_MAX),HARDNESS(TEAM_MAX),STAMINA(TEAM_MAX) Dim STRENGTH_MAX(TEAM_MAX),SPEED_MAX(TEAM_MAX),DEXTERITY_MAX(TEAM_MAX) Dim INSTINCT_MAX(TEAM_MAX),HARDNESS_MAX(TEAM_MAX),STAMINA_MAX(TEAM_MAX) Dim SKILL_SHOT(TEAM_MAX),SKILL_PASS(TEAM_MAX),SKILL_TACKLE(TEAM_MAX) Dim SKILL_STEAL(TEAM_MAX),SKILL_ART(TEAM_MAX) Dim DISPLAY_POSITION(20),ACTUAL_POSITION$(4),ACTUAL_MORALE$(10),ACTUAL_ATTRIBUTE$(10) CONTRACT_POINTS=0 CONTRACT_QUIT=0 Procedure INITIALISE_SQUAD_ARRAYS Shared ACTUAL_POSITION$(),ACTUAL_MORALE$(),ACTUAL_ATTRIBUTE$() For X=1 To 3 Read A$ : ACTUAL_POSITION$(X)=A$ Next X For X=0 To 10 Read A$ : ACTUAL_MORALE$(X)=A$ Next X For X=0 To 10 Read A$ : ACTUAL_ATTRIBUTE$(X)=A$ Next X Data "Defence","Midfield","Attack" Data "Abysmal","Very Low","Low","Poor","Bad","Average" Data "Good","V Good","Great","Superb","Fabulous!" Data "Abysmal","V Weak","Weak","Poor","Bad" Data "Average","Good","V Good","Great","Superb","Genius!" End Proc Procedure INITIALISE_PLAYER_ARRAYS[PERSON] Shared NAME$(),AGE(),POSITION(),MORALE(),KNOWLEDGE(),INJURY_LENGTH(),INJURIES(),TRANSFER(),PRICE() Shared CLUB_TO_PAY(),SKILL_TOTAL(),CONTRACT(),CONTRACT_ACCEPTED(),WEEKLY_WAGE() Shared WAGE_REQUIRED(),WAGE_OFFER(),SEASONS_WITH_CLUB(),GAMES_SEASON(),GAMES_CAREER(),GOALS_SEASON(),GOALS_CAREER() Shared STRENGTH(),SPEED(),DEXTERITY(),INSTINCT(),HARDNESS(),STAMINA() Shared STRENGTH_MAX(),SPEED_MAX(),DEXTERITY_MAX(),INSTINCT_MAX(),HARDNESS_MAX(),STAMINA_MAX() Shared SKILL_SHOT(),SKILL_PASS(),SKILL_TACKLE(),SKILL_STEAL(),SKILL_ART() NAME$(PERSON)="A Reserve Player" : AGE(PERSON)=18 : POSITION(PERSON)=2 : MORALE(PERSON)=1 KNOWLEDGE(PERSON)=0 : INJURY_LENGTH(PERSON)=0 : INJURIES(PERSON)=0 : TRANSFER(PERSON)=0 PRICE(PERSON)=1000 : CLUB_TO_PAY(PERSON)=0 : SKILL_TOTAL(PERSON)=0 : CONTRACT(PERSON)=0 : CONTRACT_ACCEPTED(PERSON)=0 WEEKLY_WAGE(PERSON)=0 : WAGE_REQUIRED(PERSON)=0 : WAGE_OFFER(PERSON)=100 : SEASONS_WITH_CLUB(PERSON)=0 GAMES_SEASON(PERSON)=0 : GAMES_CAREER(PERSON)=0 : GOALS_SEASON(PERSON)=0 : GOALS_CAREER(PERSON)=0 STRENGTH(PERSON)=1 : SPEED(PERSON)=1 : DEXTERITY(PERSON)=1 INSTINCT(PERSON)=1 : HARDNESS(PERSON)=1 : STAMINA(PERSON)=1 STRENGTH_MAX(PERSON)=100 : SPEED_MAX(PERSON)=100 : DEXTERITY_MAX(PERSON)=100 INSTINCT_MAX(PERSON)=100 : HARDNESS_MAX(PERSON)=100 : STAMINA_MAX(PERSON)=100 SKILL_SHOT(PERSON)=1 : SKILL_PASS(PERSON)=1 : SKILL_TACKLE(PERSON)=1 SKILL_STEAL(PERSON)=1 : SKILL_ART(PERSON)=1 End Proc Procedure INITIALISE_DISPLAY_POSITION Shared DISPLAY_POSITION() For POSITION=1 To 20 DISPLAY_POSITION(POSITION)=0 Next POSITION End Proc Procedure RETRIEVE_PLAYER_NAMES Shared FIRST_NAME$(),SECOND_NAME$(),GAME_DISK$ Open In 1,GAME_DISK$+"SlamBall.players_names" For X=1 To 156 Input #1,FIRST_NAME$(X) Input #1,SECOND_NAME$(X) Next X Close 1 End Proc Procedure DISPLAY_MAIN_PLAYER_SELECT_SCREEN Shared FULL_BOX,EDGE_TOP,EDGE_BOTTOM Cls 4 MAKE_A_BOX[2,4,316,24,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[2,29,316,229,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[2,232,316,247,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Ink 5,11, : MESSAGE$="Click here when finished" PLACE_TEXT_CENTRALLY[243,MESSAGE$,320] End Proc Procedure DISPLAY_WHOLE_PLAYER_SCREEN Shared DISPLAY_PLAYER_SCREEN Unpack DISPLAY_PLAYER_SCREEN To 2 : Ink 1,11, CREATE_ZONES_FOR_WHOLE_PLAYER_SCREEN End Proc Procedure CREATE_ZONES_FOR_WHOLE_PLAYER_SCREEN Reserve Zone 10 Set Zone 1,216,91 To 230,105 : Set Zone 2,216,108 To 230,122 Set Zone 3,238,91 To 308,105 : Set Zone 4,238,108 To 308,122 Set Zone 5,257,136 To 271,150 : Set Zone 6,294,136 To 308,150 Set Zone 7,262,164 To 276,178 : Set Zone 8,289,164 To 303,178 Set Zone 9,259,202 To 306,214 : Set Zone 10,2,232 To 316,247 End Proc Procedure TRANSFER_OR_CONTRACT_WITH_PLAYER[PERSON] Shared PRICE(),TRANSFER(),WAGE_OFFER(),CONTRACT(),CONTRACT_ACCEPTED() Shared CONTRACT_QUIT,CURRENT_TEAM CONTRACT_QUIT=0 : CONTRACT_OFFER=CONTRACT(PERSON) : PRICE_CHECK=0 Repeat Text 142,110,Str$(PRICE(PERSON))-" "+" " Text 279,146,Str$(CONTRACT_OFFER)-" " Text 263,190,Str$(WAGE_OFFER(PERSON))-" "+" " CHECK_MOUSE=Mouse Click : CHECK_MOUSE_KEY=Mouse Key WHICH_ZONE=Mouse Zone If CHECK_MOUSE=1 and WHICH_ZONE=1 and PRICE(PERSON)<4999000 Add PRICE(PERSON),1000 End If If CHECK_MOUSE_KEY=2 and WHICH_ZONE=1 and PRICE(PERSON)<4999000 Add PRICE(PERSON),1000 End If If CHECK_MOUSE=1 and WHICH_ZONE=2 and PRICE(PERSON)>=2000 Add PRICE(PERSON),-1000 End If If CHECK_MOUSE_KEY=2 and WHICH_ZONE=2 and PRICE(PERSON)>=2000 Add PRICE(PERSON),-1000 End If If CHECK_MOUSE=1 and WHICH_ZONE=3 and TRANSFER(PERSON)=0 PLACE_PLAYER_ON_TRANSFER_LIST[PERSON] TRANSFER_MESSAGE_ON_LIST[PERSON] End If If CHECK_MOUSE=1 and WHICH_ZONE=4 and TRANSFER(PERSON)=1 Dec MANAGER_TRANSFERS TAKE_PLAYER_OFF_TRANSFER_LIST[PERSON] TRANSFER_MESSAGE_OFF_LIST[PERSON] End If If CHECK_MOUSE=1 and WHICH_ZONE=5 Add CONTRACT_OFFER,1 If CONTRACT_OFFER>5 : CONTRACT_OFFER=1 : End If End If If CHECK_MOUSE=1 and WHICH_ZONE=6 CONTRACT_OFFER=CONTRACT_OFFER-1 If CONTRACT_OFFER<1 : CONTRACT_OFFER=5 : End If End If If CHECK_MOUSE=1 and WHICH_ZONE=7 and WAGE_OFFER(PERSON)<=6990 Add WAGE_OFFER(PERSON),10 End If If CHECK_MOUSE_KEY=2 and WHICH_ZONE=7 and WAGE_OFFER(PERSON)<=6990 Add WAGE_OFFER(PERSON),10 End If If CHECK_MOUSE=1 and WHICH_ZONE=8 and WAGE_OFFER(PERSON)>=110 Add WAGE_OFFER(PERSON),-10 End If If CHECK_MOUSE_KEY=2 and WHICH_ZONE=8 and WAGE_OFFER(PERSON)>=110 Add WAGE_OFFER(PERSON),-10 End If If CHECK_MOUSE=1 and WHICH_ZONE=9 If CONTRACT_ACCEPTED(PERSON)=0 OFFER_CONTRACT_TO_PLAYER[PERSON,CONTRACT_OFFER] If Param=1 ACCEPT_OFFER[PERSON,CONTRACT_OFFER] CONTRACT_VARIABLES_UPDATE[PERSON,CONTRACT_OFFER] CALCULATE_WAGE_BILLS Else REFUSE_OFFER[PERSON] End If Else CONTRACT_ALREADY_AGREED[PERSON] End If End If If CHECK_MOUSE=1 and WHICH_ZONE=10 CONTRACT_QUIT=1 End If Until CONTRACT_QUIT=1 Reserve Zone DISPLAY_INITIAL_PLAYER_DATA[CURRENT_TEAM] End Proc Procedure FIND_WHICH_PLAYER_TO_DISPLAY[TEAM,PERSON_TOTAL] Shared DISPLAY_POSITION(),CLUB_TO_PAY() CANCEL=0 Repeat For X=1 To PERSON_TOTAL CHECK_MOUSE=Mouse Key WHICH_ZONE=Mouse Zone If CHECK_MOUSE=1 and WHICH_ZONE=X PERSON=DISPLAY_POSITION(WHICH_ZONE) If CLUB_TO_PAY(PERSON)=TEAM DISPLAY_WHOLE_PLAYER_DATA[PERSON,0] TRANSFER_OR_CONTRACT_WITH_PLAYER[PERSON] End If End If Next X If CHECK_MOUSE=1 and WHICH_ZONE=21 CANCEL=1 End If Until CANCEL=1 Reserve Zone GRAPHIC_SCREEN_FADE End Proc Procedure DISPLAY_INITIAL_PLAYER_DATA[TEAM] Shared POSITION(),CLUB_TO_PAY(),DISPLAY_POSITION(),TEAMNAME$(),TEAM_MAX Screen 1 DISPLAY_MAIN_PLAYER_SELECT_SCREEN INITIALISE_DISPLAY_POSITION Ink 7,3, : PLACE_TEXT_CENTRALLY[13,TEAMNAME$(TEAM),320] Reserve Zone 21 : Ink 1,3, FLAG_ZONE=1 : Y_POS=37 For OUTER_LOOP=1 To 3 For PERSON=1 To TEAM_MAX If POSITION(PERSON)=OUTER_LOOP and CLUB_TO_PAY(PERSON)=TEAM DISPLAY_POSITION(FLAG_ZONE)=PERSON DISPLAY_PLAYER[PERSON,Y_POS] Set Zone FLAG_ZONE,6,Y_POS-5 To 310,Y_POS Inc FLAG_ZONE : Add Y_POS,10 End If Next PERSON Next OUTER_LOOP Set Zone 21,2,232 To 316,247 Screen To Front 1 End Proc[FLAG_ZONE] Procedure DISPLAY_PLAYER[PERSON,Y_POS] Shared NAME$(),AGE(),POSITION() Shared INJURY_LENGTH(),TRANSFER(),ACTUAL_POSITION$() Text 6,Y_POS,NAME$(PERSON) Text 156,Y_POS,Str$(AGE(PERSON))-" " Text 177,Y_POS,ACTUAL_POSITION$(POSITION(PERSON)) If INJURY_LENGTH(PERSON)>0 Text 274,Y_POS,Str$(INJURY_LENGTH(PERSON))-" " Else Text 274,Y_POS,"N" End If If TRANSFER(PERSON)=0 Text 298,Y_POS,"N" Else Text 298,Y_POS,"Y" End If End Proc Procedure DISPLAY_WHOLE_PLAYER_DATA[PERSON,TYPE] Shared NAME$(),AGE(),POSITION(),MORALE(),KNOWLEDGE() Shared INJURY_LENGTH(),INJURIES(),TRANSFER(),PRICE(),CLUB_TO_PAY() Shared SKILL_TOTAL(),CONTRACT(),WEEKLY_WAGE(),WAGE_REQUIRED() Shared SEASONS_WITH_CLUB(),GAMES_SEASON(),GAMES_CAREER() Shared GOALS_SEASON(),GOALS_CAREER() Shared STRENGTH(),SPEED(),DEXTERITY(),INSTINCT(),HARDNESS(),STAMINA() Shared SKILL_SHOT(),SKILL_PASS(),SKILL_TACKLE(),SKILL_STEAL(),SKILL_ART() Shared ACTUAL_POSITION$(),ACTUAL_MORALE$(),ACTUAL_ATTRIBUTE$() DISPLAY_WHOLE_PLAYER_SCREEN Text 50,17,NAME$(PERSON) Text 50,28,Str$(AGE(PERSON))-" " Text 50,39,Str$(CONTRACT(PERSON))-" " Text 50,50,Str$(KNOWLEDGE(PERSON))-" " Text 50,61,ACTUAL_MORALE$(MORALE((PERSON))/10) Text 247,17,ACTUAL_POSITION$(POSITION(PERSON)) Text 247,28,Str$(INJURY_LENGTH(PERSON))-" " Text 247,39,Str$(SEASONS_WITH_CLUB(PERSON))-" " Text 247,50,Str$(GAMES_CAREER(PERSON))-" " Text 247,61,Str$(GOALS_CAREER(PERSON))-" " Text 50,98,Str$(INJURIES(PERSON))-" " Text 50,109,Str$(GAMES_SEASON(PERSON))-" " Text 50,120,Str$(GOALS_SEASON(PERSON))-" " Text 50,156,ACTUAL_ATTRIBUTE$(STRENGTH(PERSON)/10) Text 50,167,ACTUAL_ATTRIBUTE$(SPEED(PERSON)/10) Text 50,178,ACTUAL_ATTRIBUTE$(DEXTERITY(PERSON)/10) Text 50,189,ACTUAL_ATTRIBUTE$(INSTINCT(PERSON)/10) Text 50,200,ACTUAL_ATTRIBUTE$(HARDNESS(PERSON)/10) Text 50,211,ACTUAL_ATTRIBUTE$(STAMINA(PERSON)/10) If TYPE=0 Text 50,72,Str$(WEEKLY_WAGE(PERSON))-" " Text 176,155,ACTUAL_ATTRIBUTE$(SKILL_SHOT(PERSON)/10) Text 176,166,ACTUAL_ATTRIBUTE$(SKILL_PASS(PERSON)/10) Text 176,177,ACTUAL_ATTRIBUTE$(SKILL_TACKLE(PERSON)/10) Text 176,188,ACTUAL_ATTRIBUTE$(SKILL_STEAL(PERSON)/10) Text 176,199,ACTUAL_ATTRIBUTE$(SKILL_ART(PERSON)/10) End If End Proc Procedure OFFER_CONTRACT_TO_PLAYER[PERSON,CONTRACT_LENGTH] Shared WAGE_OFFER(),WAGE_REQUIRED(),AGE(),MORALE(),CONTRACT_POINTS CONTRACT_POINTS=0 : ACCEPT_REJECT=0 If AGE(PERSON)>=18 and AGE(PERSON)<=22 and CONTRACT_LENGTH>=3 and CONTRACT_LENGTH<=5 Add CONTRACT_POINTS,5 End If If AGE(PERSON)>=23 and AGE(PERSON)<=26 and CONTRACT_LENGTH>=2 and CONTRACT_LENGTH<=4 Add CONTRACT_POINTS,5 End If If AGE(PERSON)>=27 and AGE(PERSON)<=28 and CONTRACT_LENGTH>=1 and CONTRACT_LENGTH<=3 Add CONTRACT_POINTS,5 End If If AGE(PERSON)>=29 and CONTRACT_LENGTH>=3 and CONTRACT_LENGTH<=5 Add CONTRACT_POINTS,5 End If TEMP_POINTS=WAGE_REQUIRED(PERSON)-WAGE_OFFER(PERSON)/10 CONTRACT_POINTS=CONTRACT_POINTS-TEMP_POINTS Add CONTRACT_POINTS,MORALE(PERSON)/10 If CONTRACT_POINTS>=9 ACCEPT_REJECT=1 Else ACCEPT_REJECT=0 End If End Proc[ACCEPT_REJECT] Procedure CONTRACT_ALREADY_AGREED[PERSON] Shared NAME$(),CONTRACT_QUIT Cls 4 MAKE_BOXES_FOR_MESSAGE Ink 5,11, : Text 90,19,"CONTRACT MESSAGE" Ink 1,11, : Text 8,85,NAME$(PERSON)+" has already" Text 8,105,"agreed a contract this year." Text 8,125,"You must wait until next year" Text 8,145,"to offer him a new contract." CHECK_FOR_MOUSE_CLICK CONTRACT_QUIT=1 End Proc Procedure ACCEPT_OFFER[PERSON,CONTRACT_LENGTH] Shared NAME$(),WAGE_OFFER(),WEEKLY_WAGE() Shared CONTRACT(),MORALE(),CONTRACT_POINTS,CONTRACT_QUIT Cls 4 MAKE_BOXES_FOR_MESSAGE Ink 7,3, : Text 58,19,"Response to Contract Offer" Ink 1,3, : Text 8,85,NAME$(PERSON)+"'s response......" Wait Rnd(50)+Rnd(50) Text 8,105,NAME$(PERSON)+" accepts your offer." Text 8,125,NAME$(PERSON)+" will now receive;" Text 14,140,"ï¿½"+Str$(WAGE_OFFER(PERSON))-" "+" a week for "+Str$(CONTRACT_LENGTH)-" "+" years." CHECK_FOR_MOUSE_CLICK CONTRACT_QUIT=1 End Proc Procedure CONTRACT_VARIABLES_UPDATE[PERSON,CONTRACT_LENGTH] Shared NAME$(),WAGE_OFFER(),WEEKLY_WAGE(),CONTRACT_ACCEPTED() Shared CONTRACT(),MORALE(),CONTRACT_POINTS WEEKLY_WAGE(PERSON)=WAGE_OFFER(PERSON) : CONTRACT(PERSON)=CONTRACT_LENGTH CONTRACT_ACCEPTED(PERSON)=1 Add MORALE(PERSON),CONTRACT_POINTS If MORALE(PERSON)>100 : MORALE(PERSON)=100 : End If End Proc Procedure REFUSE_OFFER[PERSON] Shared NAME$(),WAGE_OFFER(),WEEKLY_WAGE(),CONTRACT(),CONTRACT_QUIT Cls 4 MAKE_BOXES_FOR_MESSAGE Ink 7,3, : Text 58,19,"Response to Contract Offer" Ink 1,3, : Text 8,85,NAME$(PERSON)+"'s response......." Wait Rnd(50)+Rnd(50) Text 8,105,NAME$(PERSON)+" rejected your terms" Text 8,125,"and refused to sign the new contract." CHECK_FOR_MOUSE_CLICK CONTRACT_QUIT=1 End Proc Procedure TRANSFER_MESSAGE_ON_LIST[PERSON] Shared NAME$(),PRICE(),CONTRACT_QUIT Cls 4 MAKE_BOXES_FOR_MESSAGE Ink 5,11, : Text 78,19,"TRANSFER INFORMATION" Ink 1,11, : Text 8,85,NAME$(PERSON)+" is on the" Text 8,105,"transfer list for ï¿½"+Str$(PRICE(PERSON))-" "+"." CHECK_FOR_MOUSE_CLICK CONTRACT_QUIT=1 End Proc Procedure TRANSFER_MESSAGE_OFF_LIST[PERSON] Shared NAME$(),PRICE(),CONTRACT_QUIT Cls 4 MAKE_BOXES_FOR_MESSAGE Ink 5,11, : Text 78,19,"TRANSFER INFORMATION" Ink 1,11, : Text 8,85,NAME$(PERSON)+" is off the" Text 8,105,"transfer list." Text 8,125,"He was on for ï¿½"+Str$(PRICE(PERSON))-" "+"." CHECK_FOR_MOUSE_CLICK CONTRACT_QUIT=1 End Proc Procedure MAKE_ORIGINAL_PLAYERS Shared NUMBER_OF_TEAMS COUNT=1 For TEAM=1 To NUMBER_OF_TEAMS For PERSON=1 To 7 FIND_QUALITY_OF_PLAYER[TEAM] MAKE_NEW_PLAYER[TEAM,COUNT,Param] Inc COUNT Next PERSON CALCULATE_WAGE_BILLS Next TEAM End Proc Procedure FIND_QUALITY_OF_PLAYER[TEAM] If TEAM>=1 and TEAM<=4 FIND_QUALITY[1] End If If TEAM>=5 and TEAM<=8 FIND_QUALITY[5] End If If TEAM>=9 and TEAM<=12 FIND_QUALITY[9] End If If TEAM>=13 and TEAM<=16 FIND_QUALITY[14] End If TEMP_QUALITY=Param End Proc[TEMP_QUALITY] Procedure FIND_QUALITY[QUALITY] TEMP=Rnd(QUALITY) If TEMP=0 : TEMP_QUALITY=5 : End If If TEMP>=1 and TEMP<=2 : TEMP_QUALITY=4 : End If If TEMP>=3 and TEMP<=5 : TEMP_QUALITY=3 : End If If TEMP>=6 and TEMP<=9 : TEMP_QUALITY=2 : End If If TEMP>=10 and TEMP<=14 : TEMP_QUALITY=1 : End If End Proc[TEMP_QUALITY] Procedure MAKE_NEW_PLAYER[TEAM,PERSON,QUALITY] Shared STRENGTH(),SPEED(),DEXTERITY(),INSTINCT(),HARDNESS(),STAMINA() Shared STRENGTH_MAX(),SPEED_MAX(),DEXTERITY_MAX() Shared INSTINCT_MAX(),HARDNESS_MAX(),STAMINA_MAX() GIVE_PLAYER_A_NAME[PERSON] GIVE_PLAYER_AN_AGE[PERSON,12] GIVE_PLAYER_A_POSITION[PERSON] GIVE_PLAYER_MORALE[PERSON,30,30,1] GIVE_PLAYER_CONTRACT[PERSON] GIVE_PLAYER_STRENGTH[PERSON,QUALITY*10,10] : GIVE_PLAYER_MAXIMUM[Param] : STRENGTH_MAX(PERSON)=Param GIVE_PLAYER_SPEED[PERSON,QUALITY*10,10] : GIVE_PLAYER_MAXIMUM[Param] : SPEED_MAX(PERSON)=Param GIVE_PLAYER_DEXTERITY[PERSON,QUALITY*10,10] : GIVE_PLAYER_MAXIMUM[Param] : DEXTERITY_MAX(PERSON)=Param GIVE_PLAYER_INSTINCT[PERSON,QUALITY*10,10] : GIVE_PLAYER_MAXIMUM[Param] : INSTINCT_MAX(PERSON)=Param GIVE_PLAYER_HARDNESS[PERSON,QUALITY*10,10] : GIVE_PLAYER_MAXIMUM[Param] : HARDNESS_MAX(PERSON)=Param GIVE_PLAYER_STAMINA[PERSON,60,40] : GIVE_PLAYER_MAXIMUM[Param] : STAMINA_MAX(PERSON)=Param GIVE_PLAYER_SHOOTING_SKILL[PERSON] : GIVE_PLAYER_PASSING_SKILL[PERSON] GIVE_PLAYER_TACKLING_SKILL[PERSON] : GIVE_PLAYER_STEALING_SKILL[PERSON] GIVE_PLAYER_ARTISTRY_SKILL[PERSON] GIVE_PLAYER_A_CLUB[TEAM,PERSON] GIVE_PLAYER_SEASONS_WITH_CLUB[PERSON] GIVE_PLAYER_GAMES[PERSON] GIVE_PLAYER_GOALS[PERSON] GIVE_PLAYER_SKILL_TOTAL[PERSON] GIVE_PLAYER_WAGES[PERSON] GIVE_PLAYER_REQUIRED_WAGE[PERSON] GIVE_PLAYER_EXPERIENCE[PERSON] End Proc Procedure GIVE_PLAYER_A_NAME[PERSON] Shared NAME$(),FIRST_NAME$(),SECOND_NAME$() Repeat TEMP_A=Rnd(155)+1 : TEMP_B=Rnd(155)+1 NAME$(PERSON)=FIRST_NAME$(TEMP_A)+SECOND_NAME$(TEMP_B) Until Len(NAME$(PERSON))>2 and Len(NAME$(PERSON))<19 End Proc Procedure GIVE_PLAYER_AN_AGE[PERSON,AGE_BOUND] Shared AGE() AGE(PERSON)=Rnd(AGE_BOUND)+18 End Proc Procedure GIVE_PLAYER_A_POSITION[PERSON] Shared POSITION() TEMP=Rnd(10) If TEMP>=0 and TEMP<=4 POSITION(PERSON)=1 End If If TEMP>=5 and TEMP<=7 POSITION(PERSON)=2 End If If TEMP>=8 : POSITION(PERSON)=3 : End If End Proc Procedure GIVE_PLAYER_MORALE[PERSON,BOOST_A,BOOST_B,TYPE] Shared MORALE() If TYPE=1 Add MORALE(PERSON),Rnd(BOOST_A)+BOOST_B If MORALE(PERSON)>100 : MORALE(PERSON)=100 : End If End If If TYPE=2 MORALE(PERSON)=MORALE(PERSON)-(Rnd(BOOST_A)+(BOOST_B)) If MORALE(PERSON)<0 : MORALE(PERSON)=0 : End If End If End Proc Procedure GIVE_PLAYER_EXPERIENCE[PERSON] Shared AGE(),KNOWLEDGE(),GAMES_CAREER(),GOALS_CAREER() KNOWLEDGE(PERSON)=GAMES_CAREER(PERSON)+GOALS_CAREER(PERSON) End Proc Procedure GIVE_PLAYER_CONTRACT[PERSON] Shared CONTRACT() CONTRACT(PERSON)=Rnd(2)+1 End Proc Procedure GIVE_PLAYER_SKILL_TOTAL[PERSON] Shared STRENGTH(),SPEED(),DEXTERITY(),INSTINCT(),HARDNESS(),STAMINA() Shared SKILL_SHOT(),SKILL_PASS(),SKILL_TACKLE(),SKILL_STEAL() Shared SKILL_ART(),SKILL_TOTAL() TEMP_SKILL=0 Add TEMP_SKILL,STRENGTH(PERSON) : Add TEMP_SKILL,SPEED(PERSON) Add TEMP_SKILL,DEXTERITY(PERSON) : Add TEMP_SKILL,INSTINCT(PERSON) Add TEMP_SKILL,HARDNESS(PERSON) : Add TEMP_SKILL,STAMINA(PERSON) Add TEMP_SKILL,SKILL_SHOT(PERSON) : Add TEMP_SKILL,SKILL_PASS(PERSON) Add TEMP_SKILL,SKILL_TACKLE(PERSON) : Add TEMP_SKILL,SKILL_STEAL(PERSON) Add TEMP_SKILL,SKILL_ART(PERSON) SKILL_TOTAL(PERSON)=TEMP_SKILL End Proc Procedure GIVE_PLAYER_WAGES[PERSON] Shared WAGE_REQUIRED(),WEEKLY_WAGE(),SKILL_TOTAL() WEEKLY_WAGE(PERSON)=SKILL_TOTAL(PERSON)/10 WEEKLY_WAGE(PERSON)=WEEKLY_WAGE(PERSON)*10 End Proc Procedure GIVE_PLAYER_REQUIRED_WAGE[PERSON] Shared WAGE_REQUIRED(),SKILL_TOTAL() WAGE_REQUIRED(PERSON)=SKILL_TOTAL(PERSON)/10 End Proc Procedure GIVE_PLAYER_A_CLUB[TEAM,PERSON] Shared CLUB_TO_PAY() CLUB_TO_PAY(PERSON)=TEAM End Proc Procedure GIVE_PLAYER_SEASONS_WITH_CLUB[PERSON] Shared AGE(),SEASONS_WITH_CLUB() If AGE(PERSON)>21 : SEASONS_WITH_CLUB(PERSON)=Rnd(4) : End If End Proc Procedure GIVE_PLAYER_GAMES[PERSON] Shared AGE(),GAMES_CAREER() GAMES_CAREER(PERSON)=(AGE(PERSON)-17)*Rnd(20)+10 End Proc Procedure GIVE_PLAYER_GOALS[PERSON] Shared GOALS_CAREER(),GAMES_CAREER(),POSITION(),SKILL_SHOT() If POSITION(PERSON)=1 GOALS_CAREER(PERSON)=0 Else GOALS_CAREER(PERSON)=(GAMES_CAREER(PERSON)*SKILL_SHOT(PERSON))/100 End If End Proc Procedure GIVE_PLAYER_STRENGTH[PERSON,BOOST_A,BOOST_B] Shared STRENGTH(),STRENGTH_MAX(),POSITION() Add STRENGTH(PERSON),Rnd(BOOST_A)+(BOOST_A) If STRENGTH(PERSON)>STRENGTH_MAX(PERSON) STRENGTH(PERSON)=STRENGTH_MAX(PERSON) End If TEMP_ATTRIBUTE=STRENGTH(PERSON) End Proc[TEMP_ATTRIBUTE] Procedure GIVE_PLAYER_SPEED[PERSON,BOOST_A,BOOST_B] Shared SPEED(),SPEED_MAX(),POSITION() If POSITION(PERSON)=2 Add SPEED(PERSON),Rnd(BOOST_A)+BOOST_B Else Add SPEED(PERSON),Rnd(BOOST_A)+(BOOST_A) End If If SPEED(PERSON)>SPEED_MAX(PERSON) SPEED(PERSON)=SPEED_MAX(PERSON) End If TEMP_ATTRIBUTE=SPEED(PERSON) End Proc[TEMP_ATTRIBUTE] Procedure GIVE_PLAYER_DEXTERITY[PERSON,BOOST_A,BOOST_B] Shared DEXTERITY(),DEXTERITY_MAX(),POSITION() If POSITION(PERSON)=2 or POSITION(PERSON)=3 Add DEXTERITY(PERSON),Rnd(BOOST_A)+BOOST_B Else Add DEXTERITY(PERSON),Rnd(BOOST_A)+(BOOST_A) End If If DEXTERITY(PERSON)>DEXTERITY_MAX(PERSON) DEXTERITY(PERSON)=DEXTERITY_MAX(PERSON) End If TEMP_ATTRIBUTE=DEXTERITY(PERSON) End Proc[TEMP_ATTRIBUTE] Procedure GIVE_PLAYER_INSTINCT[PERSON,BOOST_A,BOOST_B] Shared INSTINCT(),INSTINCT_MAX(),POSITION() If POSITION(PERSON)=1 Add INSTINCT(PERSON),Rnd(BOOST_A)+BOOST_B Else Add INSTINCT(PERSON),Rnd(BOOST_A)+(BOOST_A) End If If INSTINCT(PERSON)>INSTINCT_MAX(PERSON) INSTINCT(PERSON)=INSTINCT_MAX(PERSON) End If TEMP_ATTRIBUTE=INSTINCT(PERSON) End Proc[TEMP_ATTRIBUTE] Procedure GIVE_PLAYER_HARDNESS[PERSON,BOOST_A,BOOST_B] Shared HARDNESS(),HARDNESS_MAX(),POSITION() If POSITION(PERSON)=1 or POSITION(PERSON)=3 Add HARDNESS(PERSON),Rnd(BOOST_A)+BOOST_B Else Add HARDNESS(PERSON),Rnd(BOOST_A)+(BOOST_B) End If If HARDNESS(PERSON)>HARDNESS_MAX(PERSON) HARDNESS(PERSON)=HARDNESS_MAX(PERSON) End If TEMP_ATTRIBUTE=HARDNESS(PERSON) End Proc[TEMP_ATTRIBUTE] Procedure GIVE_PLAYER_STAMINA[PERSON,BOOST_A,BOOST_B] Shared STAMINA(),STAMINA_MAX() Add STAMINA(PERSON),Rnd(BOOST_A)+BOOST_B If STAMINA(PERSON)>STAMINA_MAX(PERSON) STAMINA(PERSON)=STAMINA_MAX(PERSON) End If TEMP_ATTRIBUTE=STAMINA(PERSON) End Proc[TEMP_ATTRIBUTE] Procedure GIVE_PLAYER_MAXIMUM[THE_ATTRIBUTE] TEMP=Rnd(2) If TEMP=0 : TEMP_MAXIMUM=THE_ATTRIBUTE+Rnd(20)+50 : End If If TEMP=1 : TEMP_MAXIMUM=THE_ATTRIBUTE+Rnd(20)+30 : End If If TEMP=2 : TEMP_MAXIMUM=THE_ATTRIBUTE+Rnd(20)+10 : End If If TEMP_MAXIMUM>100 : TEMP_MAXIMUM=100 : End If End Proc[TEMP_MAXIMUM] Procedure GIVE_PLAYER_SHOOTING_SKILL[PERSON] Shared SKILL_SHOT(),POSITION(),INSTINCT(),SPEED(),STRENGTH() If POSITION(PERSON)=1 or POSITION(PERSON)=2 SKILL_SHOT(PERSON)=(INSTINCT(PERSON)*0.38)+(SPEED(PERSON)*0.38)+(STRENGTH(PERSON)*0.1) End If If POSITION(PERSON)=3 SKILL_SHOT(PERSON)=(INSTINCT(PERSON)*0.45)+(SPEED(PERSON)*0.45)+(STRENGTH(PERSON)*0.1) End If End Proc Procedure GIVE_PLAYER_PASSING_SKILL[PERSON] Shared SKILL_PASS(),POSITION(),INSTINCT(),DEXTERITY(),STRENGTH() SKILL_PASS(PERSON)=(INSTINCT(PERSON)*0.4)+(DEXTERITY(PERSON)*0.4)+(STRENGTH(PERSON)*0.2) End Proc Procedure GIVE_PLAYER_TACKLING_SKILL[PERSON] Shared SKILL_TACKLE(),POSITION(),STRENGTH(),HARDNESS(),DEXTERITY() If POSITION(PERSON)=1 or POSITION(PERSON)=2 SKILL_TACKLE(PERSON)=(STRENGTH(PERSON)*0.4)+(HARDNESS(PERSON)*0.3)+(DEXTERITY(PERSON)*0.3) End If If POSITION(PERSON)=3 SKILL_TACKLE(PERSON)=(STRENGTH(PERSON)*0.29)+(HARDNESS(PERSON)*0.29)+(DEXTERITY(PERSON)*0.29) End If End Proc Procedure GIVE_PLAYER_STEALING_SKILL[PERSON] Shared SKILL_STEAL(),INSTINCT(),DEXTERITY(),STRENGTH(),POSITION() If POSITION(PERSON)=1 or POSITION(PERSON)=2 SKILL_STEAL(PERSON)=(DEXTERITY(PERSON)*0.35)+(INSTINCT(PERSON)*0.35)+(STRENGTH(PERSON)*0.3) End If If POSITION(PERSON)=3 SKILL_STEAL(PERSON)=(DEXTERITY(PERSON)*0.29)+(INSTINCT(PERSON)*0.29)+(STRENGTH(PERSON)*0.29) End If End Proc Procedure GIVE_PLAYER_ARTISTRY_SKILL[PERSON] Shared SKILL_ART(),INSTINCT(),DEXTERITY(),SPEED(),STRENGTH() SKILL_ART(PERSON)=(DEXTERITY(PERSON)*0.4)+(INSTINCT(PERSON)*0.3)+(SPEED(PERSON)*0.2)+(STRENGTH(PERSON)*0.1) End Proc Procedure STORE_PLAYER_DATA Shared NAME$(),AGE(),POSITION(),MORALE() Shared KNOWLEDGE(),INJURY_LENGTH(),INJURIES(),TRANSFER(),PRICE() Shared CLUB_TO_PAY(),SKILL_TOTAL(),CONTRACT(),CONTRACT_ACCEPTED(),WEEKLY_WAGE() Shared WAGE_REQUIRED(),WAGE_OFFER(),SEASONS_WITH_CLUB() Shared GAMES_SEASON(),GAMES_CAREER(),GOALS_SEASON(),GOALS_CAREER() Shared TEAM_MAX,FILENAME$ Shared STRENGTH(),SPEED(),DEXTERITY(),INSTINCT(),HARDNESS(),STAMINA() Shared STRENGTH_MAX(),SPEED_MAX(),DEXTERITY_MAX() Shared INSTINCT_MAX(),HARDNESS_MAX(),STAMINA_MAX() Shared SKILL_SHOT(),SKILL_PASS(),SKILL_TACKLE(),SKILL_STEAL(),SKILL_ART() STORE_FILENAME$=FILENAME$-".slamball"+".player_data" Open Out 1,STORE_FILENAME$ For STORING_LOOP=1 To TEAM_MAX Print #1,NAME$(STORING_LOOP) Print #1,AGE(STORING_LOOP) Print #1,POSITION(STORING_LOOP) Print #1,MORALE(STORING_LOOP) Print #1,KNOWLEDGE(STORING_LOOP) Print #1,INJURY_LENGTH(STORING_LOOP) Print #1,INJURIES(STORING_LOOP) Print #1,TRANSFER(STORING_LOOP) Print #1,PRICE(STORING_LOOP) Print #1,CLUB_TO_PAY(STORING_LOOP) Print #1,SKILL_TOTAL(STORING_LOOP) Print #1,CONTRACT(STORING_LOOP) Print #1,CONTRACT_ACCEPTED(STORING_LOOP) Print #1,WEEKLY_WAGE(STORING_LOOP) Print #1,WAGE_REQUIRED(STORING_LOOP) Print #1,WAGE_OFFER(STORING_LOOP) Print #1,SEASONS_WITH_CLUB(STORING_LOOP) Print #1,GAMES_SEASON(STORING_LOOP) Print #1,GAMES_CAREER(STORING_LOOP) Print #1,GOALS_SEASON(STORING_LOOP) Print #1,GOALS_CAREER(STORING_LOOP) Print #1,STRENGTH(STORING_LOOP) Print #1,SPEED(STORING_LOOP) Print #1,DEXTERITY(STORING_LOOP) Print #1,INSTINCT(STORING_LOOP) Print #1,HARDNESS(STORING_LOOP) Print #1,STAMINA(STORING_LOOP) Print #1,STRENGTH_MAX(STORING_LOOP) Print #1,SPEED_MAX(STORING_LOOP) Print #1,DEXTERITY_MAX(STORING_LOOP) Print #1,INSTINCT_MAX(STORING_LOOP) Print #1,HARDNESS_MAX(STORING_LOOP) Print #1,STAMINA_MAX(STORING_LOOP) Print #1,SKILL_SHOT(STORING_LOOP) Print #1,SKILL_PASS(STORING_LOOP) Print #1,SKILL_TACKLE(STORING_LOOP) Print #1,SKILL_STEAL(STORING_LOOP) Print #1,SKILL_ART(STORING_LOOP) Next STORING_LOOP Close 1 End Proc Procedure RETRIEVE_PLAYER_DATA Shared NAME$(),AGE(),POSITION(),MORALE() Shared KNOWLEDGE(),INJURY_LENGTH(),INJURIES(),TRANSFER(),PRICE() Shared CLUB_TO_PAY(),SKILL_TOTAL(),CONTRACT(),CONTRACT_ACCEPTED(),WEEKLY_WAGE() Shared WAGE_REQUIRED(),WAGE_OFFER(),SEASONS_WITH_CLUB() Shared GAMES_SEASON(),GAMES_CAREER(),GOALS_SEASON(),GOALS_CAREER() Shared TEAM_MAX,FILENAME$ Shared STRENGTH(),SPEED(),DEXTERITY(),INSTINCT(),HARDNESS(),STAMINA() Shared STRENGTH_MAX(),SPEED_MAX(),DEXTERITY_MAX() Shared INSTINCT_MAX(),HARDNESS_MAX(),STAMINA_MAX() Shared SKILL_SHOT(),SKILL_PASS(),SKILL_TACKLE(),SKILL_STEAL(),SKILL_ART() RETRIEVE_FILENAME$=FILENAME$-".slamball"+".player_data" Open In 1,RETRIEVE_FILENAME$ For RETRIEVING_LOOP=1 To TEAM_MAX Input #1,NAME$(RETRIEVING_LOOP) Input #1,AGE(RETRIEVING_LOOP) Input #1,POSITION(RETRIEVING_LOOP) Input #1,MORALE(RETRIEVING_LOOP) Input #1,KNOWLEDGE(RETRIEVING_LOOP) Input #1,INJURY_LENGTH(RETRIEVING_LOOP) Input #1,INJURIES(RETRIEVING_LOOP) Input #1,TRANSFER(RETRIEVING_LOOP) Input #1,PRICE(RETRIEVING_LOOP) Input #1,CLUB_TO_PAY(RETRIEVING_LOOP) Input #1,SKILL_TOTAL(RETRIEVING_LOOP) Input #1,CONTRACT(RETRIEVING_LOOP) Input #1,CONTRACT_ACCEPTED(STORING_LOOP) Input #1,WEEKLY_WAGE(RETRIEVING_LOOP) Input #1,WAGE_REQUIRED(RETRIEVING_LOOP) Input #1,WAGE_OFFER(RETRIEVING_LOOP) Input #1,SEASONS_WITH_CLUB(RETRIEVING_LOOP) Input #1,GAMES_SEASON(RETRIEVING_LOOP) Input #1,GAMES_CAREER(RETRIEVING_LOOP) Input #1,GOALS_SEASON(RETRIEVING_LOOP) Input #1,GOALS_CAREER(RETRIEVING_LOOP) Input #1,STRENGTH(RETRIEVING_LOOP) Input #1,SPEED(RETRIEVING_LOOP) Input #1,DEXTERITY(RETRIEVING_LOOP) Input #1,INSTINCT(RETRIEVING_LOOP) Input #1,HARDNESS(RETRIEVING_LOOP) Input #1,STAMINA(RETRIEVING_LOOP) Input #1,STRENGTH_MAX(RETRIEVING_LOOP) Input #1,SPEED_MAX(RETRIEVING_LOOP) Input #1,DEXTERITY_MAX(RETRIEVING_LOOP) Input #1,INSTINCT_MAX(RETRIEVING_LOOP) Input #1,HARDNESS_MAX(RETRIEVING_LOOP) Input #1,STAMINA_MAX(RETRIEVING_LOOP) Input #1,SKILL_SHOT(RETRIEVING_LOOP) Input #1,SKILL_PASS(RETRIEVING_LOOP) Input #1,SKILL_TACKLE(RETRIEVING_LOOP) Input #1,SKILL_STEAL(RETRIEVING_LOOP) Input #1,SKILL_ART(RETRIEVING_LOOP) Next RETRIEVING_LOOP Close 1 End Proc '******************************************************************** ' '******************************************************************** '* MANAGERS PART * '******************************************************************** Dim ALPHABET$(28),LETTERS_OF_NAME$(18) Dim TEAM_CASH(NUMBER_OF_TEAMS),CLUB_RATING(NUMBER_OF_TEAMS),TEAM_FAME(NUMBER_OF_TEAMS) Dim GATE_RECEIPTS(NUMBER_OF_TEAMS),WAGE_BILL(NUMBER_OF_TEAMS),SPONSOR(NUMBER_OF_TEAMS) Dim PRIZE_MONEY(NUMBER_OF_TEAMS) SEASON_END=31 TACTIC_USER_A=0 : TACTIC_USER_B=0 TACTIC_USER_C=0 : TACTIC_USER_D=0 Procedure INITIALISE_MANAGER_NAME Shared MANAGER_NAME$,MANAGER_AGE MANAGER_NAME$="Rock Janson" End Proc Procedure INITIALISE_MANAGER_VARIABLES Shared CLUB_RATING(),SPONSOR(),TEAM_FAME(),TEAM_CASH(),MANAGER_RATING Shared BOUGHT,CAREER_BOUGHT,SOLD,CAREER_SOLD,TRAINING_COST Shared CASH_FORWARD,MANAGER_TRANSFERS,MANAGER_AGE,CURRENT_TEAM BOUGHT=0 : CAREER_BOUGHT=0 SOLD=0 : CAREER_SOLD=0 TRAINING_COST=0 : MANAGER_RATING=50 CASH_FORWARD=0 : MANAGER_TRANSFERS=0 MANAGER_AGE=Rnd(7)+28 For TEAM=1 To 8 CLUB_RATING(TEAM)=40 SPONSOR(TEAM)=15000 TEAM_FAME(TEAM)=Rnd(10)+40 TEAM_CASH(TEAM)=500000 Next TEAM For TEAM=9 To 15 CLUB_RATING(TEAM)=20 SPONSOR(TEAM)=5000 TEAM_FAME(TEAM)=Rnd(10)+10 TEAM_CASH(TEAM)=100000 Next TEAM CLUB_RATING(CURRENT_TEAM)=20 : SPONSOR(CURRENT_TEAM)=1000 TEAM_FAME(CURRENT_TEAM)=Rnd(5)+5 : TEAM_CASH(CURRENT_TEAM)=20000 End Proc Procedure INITIALISE_MANAGER_NAME_ARRAY Shared ALPHABET$() For X=1 To 28 Read A$ ALPHABET$(X)=A$ Next X Data "A","B","C","D","E","F","G","H","I","J","K","L","M","N" Data "O","P","Q","R","S","T","U","V","W","X","Y","Z","."," " End Proc Procedure INITIALISE_LETTERS_OF_NAME Shared LETTERS_OF_NAME$() For X=1 To 18 LETTERS_OF_NAME$(X)="" Next X End Proc Procedure CHECK_MANAGER_DETAILS Shared TEAM_CASH(),CLUB_RATING() Shared RESIGN_FLAG,MANAGER_HAS_RESIGNED,MANAGER_HAS_NOT_RESIGNED Shared CURRENT_WEEK,MANAGER_AGE,MANAGER_RATING,CURRENT_TEAM If RESIGN_FLAG=MANAGER_HAS_NOT_RESIGNED and CURRENT_WEEK=31 THE_END_OF_THE_SEASON End If If RESIGN_FLAG=MANAGER_HAS_RESIGNED DISPLAY_MANAGER_RESIGNED_MESSAGE End If If MANAGER_AGE=70 DISPLAY_MANAGER_TOO_OLD_MESSAGE RESIGN_FLAG=MANAGER_HAS_RESIGNED End If If TEAM_CASH(CURRENT_TEAM)<0 DISPLAY_NO_CASH_MESSAGE RESIGN_FLAG=MANAGER_HAS_RESIGNED End If If MANAGER_RATING<CLUB_RATING(CURRENT_TEAM) DISPLAY_BAD_MANAGER_MESSAGE RESIGN_FLAG=MANAGER_HAS_RESIGNED End If End Proc Procedure DISPLAY_A_MESSAGE[HEADING$,LINE_A$,LINE_B$,LINE_C$,LINE_D$,LINE_E$,THE_SCREEN] Screen THE_SCREEN : Cls 4 : MAKE_BOXES_FOR_MESSAGE Ink 7,3, : PLACE_TEXT_CENTRALLY[19,HEADING$,Screen Width] : Ink 1,3, Text 8,85,LINE_A$ : Text 8,105,LINE_B$ Text 8,125,LINE_C$ : Text 8,145,LINE_D$ : Text 8,165,LINE_E$ Screen To Front THE_SCREEN CHECK_FOR_MOUSE_CLICK End Proc Procedure DISPLAY_MANAGER_RESIGNED_MESSAGE DISPLAY_A_MESSAGE["Team Owners","We would like to thank you","very much indeed for your service","to the club.","We wish you well in your next","ventures.",2] End Proc Procedure DISPLAY_MANAGER_TOO_OLD_MESSAGE DISPLAY_A_MESSAGE["Team Owners","We would like to thank you","very much indeed for your service","to the club all these years.","You have now reached the mandatory","retirememt age of 70.",2] End Proc Procedure DISPLAY_NO_CASH_MESSAGE DISPLAY_A_MESSAGE["Team Owners","We have no money left!!","We are disgraced that you","show no financial sense and","therefore we have no hesitation","in giving you the sack!!",2] End Proc Procedure DISPLAY_BAD_MANAGER_MESSAGE DISPLAY_A_MESSAGE["Team Owners","We are totally shocked!!","We are disgraced with your","management ability. You have","fallen below our standards.","Therefore, you are sacked!!",2] End Proc Procedure DISPLAY_CHAMPIONS_MESSAGE DISPLAY_A_MESSAGE["Team Owners","We are completely ecstatic!!","You have taken our club to the","pinnacle of our sport.","SlamBall Champions!!","We hope this great trend continues!!",2] End Proc Procedure DISPLAY_PROMOTION_MESSAGE DISPLAY_A_MESSAGE["Team Owners","We are very happy!!","You have shown good management skill","taking our club to the First Division.","This confirms our belief in you.","Now for the Championship!!",2] End Proc Procedure DISPLAY_RELEGATION_MESSAGE DISPLAY_A_MESSAGE["Team Owners","We are very unhappy with this!!","This relegation is a severe jolt","to our Championship aspirations.","We can only hope that you will get","it right before too long!!",2] End Proc Procedure DISPLAY_END_OF_SEASON_MESSAGE DISPLAY_A_MESSAGE["End Of Season","Please wait while the","next season is initialised.","","","",2] Ink 5,3, : PLACE_TEXT_CENTRALLY[243,"........Please Wait........",Screen Width] End Proc Procedure MAKE_BOXES_FOR_ENTERING_NAME Shared ALPHABET$(),FULL_BOX,EDGE_TOP,EDGE_BOTTOM Screen 0 Reserve Zone Reserve Zone 30 Cls 4 : A=1 : B=14 X1=20 : Y1=80 : X2=32 : Y2=92 For Y=1 To 2 For X=A To B MAKE_A_BOX[X1,Y1,X2,Y2,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Set Zone X,X1,Y1 To X2,Y2 Add X1,20 : Add X2,20 Text X1-17,Y1+9,ALPHABET$(X) Next X X1=20 : Y1=100 : X2=32 : Y2=112 A=A+14 : B=B+14 Next Y MAKE_A_BOX[240,120,293,132,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Text 243,129,"Delete" Set Zone 29,240,120 To 293,132 MAKE_A_BOX[3,235,316,247,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Ink 5,11, : Text 66,244,"Click here when finished" Set Zone 30,2,232 To 316,247 MAKE_A_BOX[20,50,293,64,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Screen To Front 0 End Proc Procedure ENTER_A_NAME[MESSAGE$,LETTERS_MAX] Shared ALPHABET$(),LETTERS_OF_NAME$(),CURRENT_LETTER Shared FULL_BOX,EDGE_TOP,EDGE_BOTTOM CANCEL=0 : CURRENT_LETTER=1 : MANAGER_NAME$="" MAKE_A_BOX[3,10,316,22,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Ink 7,3, PLACE_TEXT_CENTRALLY[19,MESSAGE$,Screen Width] Ink 3,3 : Text 24,60," " : Ink 7,3, Repeat For X=1 To 28 CHECK_MOUSE=Mouse Click : CHECK_MOUSE_KEY=Mouse Key WHICH_ZONE=Mouse Zone If CHECK_MOUSE_KEY=1 and WHICH_ZONE=X and CURRENT_LETTER<=LETTERS_MAX LETTERS_OF_NAME$(CURRENT_LETTER)=Lower$(ALPHABET$(WHICH_ZONE)) Inc CURRENT_LETTER : Wait 4 End If If CHECK_MOUSE_KEY=2 and WHICH_ZONE=X and CURRENT_LETTER<=LETTERS_MAX LETTERS_OF_NAME$(CURRENT_LETTER)=Upper$(ALPHABET$(WHICH_ZONE)) Inc CURRENT_LETTER : Wait 4 End If If CHECK_MOUSE=1 and WHICH_ZONE=30 and CURRENT_LETTER>1 CANCEL=1 End If If CHECK_MOUSE=1 and WHICH_ZONE=29 and CURRENT_LETTER>1 Dec CURRENT_LETTER LETTERS_OF_NAME$(CURRENT_LETTER)=" " End If Next X X_POS=24 For X=1 To 18 Text X_POS,60,LETTERS_OF_NAME$(X) Add X_POS,10 Next X Until CANCEL=1 For X=1 To CURRENT_LETTER-1 TEMP_NAME$=TEMP_NAME$+LETTERS_OF_NAME$(X) Next X End Proc[TEMP_NAME$] Procedure GIVE_MANAGER_AN_AGE Shared MANAGER_AGE MANAGER_AGE=Rnd(5)+28 End Proc Procedure CALCULATE_WAGE_BILLS Shared WEEKLY_WAGE(),WAGE_BILL(),CLUB_TO_PAY(),TEAM_MAX,NUMBER_OF_TEAMS For TEAM=1 To NUMBER_OF_TEAMS WAGE_BILL(TEAM)=0 Next TEAM For PERSON=1 To TEAM_MAX Add WAGE_BILL(CLUB_TO_PAY(PERSON)),WEEKLY_WAGE(PERSON) Next PERSON End Proc Procedure CALCULATE_THE_CROWD[THE_HOME_TEAM,THE_AWAY_TEAM] Shared TEAM_FAME() CROWD=(TEAM_FAME(THE_HOME_TEAM)*1000)*0.7+(TEAM_FAME(THE_AWAY_TEAM)*1000)*0.3 End Proc[CROWD] Procedure CALCULATE_GATE_RECEIPTS[THE_HOME_TEAM,THE_AWAY_TEAM] Shared TEAM_FAME(),TEAM_CASH(),GATE_RECEIPTS() CALCULATE_THE_CROWD[THE_HOME_TEAM,THE_AWAY_TEAM] CROWD=Param Add GATE_RECEIPTS(THE_HOME_TEAM),CROWD Add GATE_RECEIPTS(THE_AWAY_TEAM),CROWD End Proc[CROWD] Procedure RESET_GATE_RECEIPTS Shared GATE_RECEIPTS(),NUMBER_OF_TEAMS For TEAM=1 To NUMBER_OF_TEAMS GATE_RECEIPTS(TEAM)=0 Next TEAM End Proc Procedure CHANGE_MANAGERS_RATING[BOOST_A,BOOST_B,TYPE] Shared MANAGER_RATING If TYPE=1 Add MANAGER_RATING,Rnd(BOOST_A)+BOOST_B If MANAGER_RATING>100 : MANAGER_RATING=100 : End If End If If TYPE=2 MANAGER_RATING=MANAGER_RATING-BOOST_B If MANAGER_RATING<1 : MANAGER_RATING=1 : End If End If End Proc Procedure DISPLAY_MANAGER_SCREEN Shared MANAGER_DISPLAY_SCREEN Unpack MANAGER_DISPLAY_SCREEN To 1 : Ink 1,11, End Proc Procedure DISPLAY_MANAGER_DATA[TEAM] Shared TEAMNAME$(),MANAGER_NAME$,MANAGER_AGE,GATE_RECEIPTS(),SPONSOR() Shared PRIZE_MONEY(),SOLD,CAREER_SOLD,BOUGHT,CAREER_BOUGHT Shared WAGE_BILL(),MANAGER_RATING,TRAINING_COST,CASH_FORWARD,TEAM_CASH() DISPLAY_MANAGER_SCREEN Text 70,14,TEAMNAME$(TEAM) Text 50,40,MANAGER_NAME$ Text 264,40,Str$(MANAGER_AGE)-" " Text 180,62,Str$(CASH_FORWARD)-" " Text 100,73,Str$(GATE_RECEIPTS(TEAM))-" " Text 100,84,Str$(SPONSOR(TEAM))-" " Text 100,95,Str$(PRIZE_MONEY(TEAM))-" " Text 100,106,Str$(SOLD)-" " Text 180,117,Str$(CASH_FORWARD+(GATE_RECEIPTS(TEAM))+(SPONSOR(TEAM))+(PRIZE_MONEY(TEAM))+SOLD)-" " Text 100,128,Str$(WAGE_BILL(TEAM))-" " Text 100,139,Str$(BOUGHT)-" " Text 100,150,Str$(TRAINING_COST)-" " Text 180,161,Str$(TEAM_CASH(TEAM))-" " Text 100,182,Str$(CAREER_SOLD)-" " Text 100,193,Str$(CAREER_BOUGHT)-" " Text 100,204,Str$(CAREER_SOLD-CAREER_BOUGHT)-" " Text 100,215,Str$(MANAGER_RATING)-" " Repeat : Until Mouse Click GRAPHIC_SCREEN_FADE End Proc Procedure ALTER_PLAYERS_INJURIES Shared INJURY_LENGTH(),INJURIES(),CLUB_TO_PAY(),TEAM_MAX,NUMBER_OF_TEAMS For PERSON=1 To TEAM_MAX If CLUB_TO_PAY(PERSON)<>0 and INJURY_LENGTH(PERSON)>0 Dec INJURY_LENGTH(PERSON) Inc INJURIES(PERSON) End If Next PERSON End Proc Procedure GIVE_TEAMS_GATE_MONEY Shared TEAM_CASH(),GATE_RECEIPTS(),NUMBER_OF_TEAMS For TEAM=1 To NUMBER_OF_TEAMS Add TEAM_CASH(TEAM),GATE_RECEIPTS(TEAM) Next TEAM End Proc Procedure RESET_END_OF_WEEK_VARIABLES Shared TEAM_CASH(),WAGE_BILL(),SPONSOR() Shared BOUGHT,SOLD,TRAINING_COST,CURRENT_TRAINING,NUMBER_OF_TEAMS BOUGHT=0 : SOLD=0 : TRAINING_COST=0 : CURRENT_TRAINING=0 For TEAM=1 To NUMBER_OF_TEAMS TEAM_CASH(TEAM)=TEAM_CASH(TEAM)-WAGE_BILL(TEAM) Add TEAM_CASH(TEAM),SPONSOR(TEAM) Next TEAM End Proc Procedure THE_END_OF_THE_WEEK ALTER_PLAYERS_INJURIES GIVE_TEAMS_GATE_MONEY RESET_END_OF_WEEK_VARIABLES End Proc Procedure PROMOTE_AND_RELEGATE Shared LEAGUE_POSITION(),TEAMNAME$(),TEAM_CASH(),PRIZE_MONEY() Shared CURRENT_TEAM,PROMOTE_FLAG CHAMPIONS=LEAGUE_POSITION(1) : RELEGATE=LEAGUE_POSITION(8) : PROMOTE=LEAGUE_POSITION(9) Add TEAM_CASH(CHAMPIONS),150000 : Add PRIZE_MONEY(CHAMPIONS),150000 Add TEAM_CASH(PROMOTE),75000 : Add PRIZE_MONEY(PROMOTE),75000 If CHAMPIONS=CURRENT_TEAM : DISPLAY_CHAMPIONS_MESSAGE : End If If PROMOTE=CURRENT_TEAM : DISPLAY_PROMOTION_MESSAGE : End If If RELEGATE=CURRENT_TEAM : DISPLAY_RELEGATION_MESSAGE : End If DISPLAY_A_MESSAGE["Promotion And Relegation",TEAMNAME$(CHAMPIONS)+" are champions.",TEAMNAME$(RELEGATE)+" will be relegated","to Division 2.",TEAMNAME$(PROMOTE)+" will be promoted","to Division 1.",1] PROMOTE_FLAG=1 GRAPHIC_SCREEN_FADE End Proc Procedure CHANGE_THE_TWO_TEAMS_VARIABLES Shared SPONSOR(),LEAGUE_POSITION(),TEAM_FIXTURES() Shared TEAM_CASH(),CLUB_RATING(),NUMBER_OF_TEAMS PROMOTE=LEAGUE_POSITION(9) : RELEGATE=LEAGUE_POSITION(8) Add SPONSOR(RELEGATE),-1000 : ALTER_TEAM_FAME[RELEGATE,5,2] Add SPONSOR(PROMOTE),1000 : ALTER_TEAM_FAME[PROMOTE,5,1] Swap LEAGUE_POSITION(9),LEAGUE_POSITION(8) For TEAM=1 To NUMBER_OF_TEAMS If TEAM_FIXTURES(TEAM)=RELEGATE TEAM_A=TEAM End If If TEAM_FIXTURES(TEAM)=PROMOTE TEAM_B=TEAM End If Next TEAM Swap TEAM_FIXTURES(TEAM_A),TEAM_FIXTURES(TEAM_B) End Proc Procedure CHANGE_ALL_TEAMS_CLUB_RATINGS Shared CLUB_RATING(),LEAGUE_POSITION(),NUMBER_OF_DIVISIONS,TEAMS_IN_DIVISION TEAM_A=1 : TEAM_B=TEAMS_IN_DIVISION : BOOST=4 For OUTER_LOOP=1 To NUMBER_OF_DIVISIONS For TEAM=TEAM_A To TEAM_B THE_TEAM=LEAGUE_POSITION(TEAM) ALTER_CLUB_RATING[THE_TEAM,BOOST,1] Dec BOOST Next TEAM Add TEAM_A,TEAMS_IN_DIVISION : Add TEAM_B,TEAMS_IN_DIVISION BOOST=4 Next OUTER_LOOP End Proc Procedure ALTER_CLUB_RATING[TEAM,BOOST,TYPE] Shared CLUB_RATING() If TYPE=1 Add CLUB_RATING(TEAM),BOOST If CLUB_RATING(TEAM)>50 : CLUB_RATING(TEAM)=50 : End If End If If TYPE=2 CLUB_RATING(TEAM)=CLUB_RATING(TEAM)-BOOST If CLUB_RATING(TEAM)<10 : CLUB_RATING(TEAM)=10 : End If End If End Proc Procedure RESET_END_OF_SEASON_VARIABLES Shared GOALS_SEASON(),GAMES_SEASON(),SEASONS_WITH_CLUB() Shared INJURIES(),CONTRACT(),CONTRACT_ACCEPTED(),CLUB_TO_PAY() Shared AGE(),TEAM_CASH(),PRIZE_MONEY() Shared MANAGER_AGE,TEAM_MAX,NUMBER_OF_TEAMS,CURRENT_WEEK For PERSON=1 To TEAM_MAX If CLUB_TO_PAY(PERSON)<>0 GOALS_SEASON(PERSON)=0 : GAMES_SEASON(PERSON)=0 INJURIES(PERSON)=0 : CONTRACT_ACCEPTED(PERSON)=0 Inc AGE(PERSON) Inc SEASONS_WITH_CLUB(PERSON) : Dec CONTRACT(PERSON) End If Next PERSON For TEAM=1 To NUMBER_OF_TEAMS If TEAM_CASH(TEAM)>3000000 TEAM_CASH(TEAM)=3000000 End If PRIZE_MONEY(TEAM)=0 Next TEAM Inc MANAGER_AGE CURRENT_WEEK=1 End Proc Procedure RETIRE_REDUNDANT_PLAYERS Shared CLUB_TO_PAY(),AGE(),CONTRACT(),TEAM_MAX For PERSON=1 To TEAM_MAX If CLUB_TO_PAY(PERSON)<>0 and(AGE(PERSON)=33 or CONTRACT(PERSON)=0) INITIALISE_PLAYER_ARRAYS[PERSON] End If Next PERSON End Proc Procedure REBUILD_UNDERMANNED_TEAMS Shared CLUB_TO_PAY(),TEAM_MAX,NUMBER_OF_TEAMS,CURRENT_TEAM For TEAM=1 To NUMBER_OF_TEAMS PERSON_COUNT=0 If TEAM<>CURRENT_TEAM For PERSON=1 To TEAM_MAX If CLUB_TO_PAY(PERSON)=TEAM Inc PERSON_COUNT End If Next PERSON If PERSON_COUNT<8 REBUILD_THE_TEAM[TEAM,8-PERSON_COUNT] End If End If Next TEAM End Proc Procedure REBUILD_THE_TEAM[TEAM,PERSON_COUNT] Shared CLUB_TO_PAY() COUNT=0 PERSON=1 Repeat If CLUB_TO_PAY(PERSON)=0 FIND_QUALITY_OF_PLAYER[TEAM] MAKE_NEW_PLAYER[TEAM,PERSON,Param] Inc COUNT End If Inc PERSON Until COUNT=PERSON_COUNT End Proc Procedure CHECK_PLAYERS_MORALE Shared WEEKLY_WAGE(),WAGE_REQUIRED(),TEAM_MAX,NUMBER_OF_TEAMS For PERSON=1 To TEAM_MAX If WEEKLY_WAGE(PERSON)<WAGE_REQUIRED(PERSON) GIVE_PLAYER_MORALE[PERSON,WAGE_REQUIRED(PERSON)-WEEKLY_WAGE(PERSON),0,2] End If Next PERSON End Proc Procedure OFFER_PLAYERS_NEW_CONTRACTS Shared CLUB_TO_PAY(),CONTRACT(),TEAM_MAX,CURRENT_TEAM CONTRACT_OFFER=0 For PERSON=1 To TEAM_MAX If CLUB_TO_PAY(PERSON)<>0 and CLUB_TO_PAY(PERSON)<>CURRENT_TEAM and CONTRACT(PERSON)<2 MAKE_A_CONTRACT_OFFER[PERSON] : CONTRACT_OFFER=Param OFFER_CONTRACT_TO_PLAYER[PERSON,CONTRACT_OFFER] If Param=1 CONTRACT_VARIABLES_UPDATE[PERSON,CONTRACT_OFFER] End If End If Next PERSON End Proc Procedure CHANGE_TRANSFER_QUALITY Shared TRANSFER_QUALITY If TRANSFER_QUALITY<15 Inc TRANSFER_QUALITY End If End Proc Procedure THE_END_OF_THE_SEASON Shared CURRENT_TEAM DISPLAY_END_OF_SEASON_MESSAGE CHANGE_ALL_TEAMS_CLUB_RATINGS CHANGE_THE_TWO_TEAMS_VARIABLES RESET_END_OF_SEASON_VARIABLES OFFER_PLAYERS_NEW_CONTRACTS RETIRE_REDUNDANT_PLAYERS REBUILD_UNDERMANNED_TEAMS CHECK_PLAYERS_MORALE CALCULATE_WAGE_BILLS CHANGE_TRANSFER_QUALITY INITIALISE_NEW_SEASON_VARIABLES MAKE_ORIGINAL_TRANSFER_LIST[CURRENT_TEAM] GRAPHIC_SCREEN_FADE End Proc Procedure STORE_MANAGER_DATA Shared MANAGER_NAME$,MANAGER_AGE,CURRENT_TEAM,CURRENT_WEEK Shared SOLD,CAREER_SOLD,BOUGHT,CAREER_BOUGHT,MANAGER_RATING Shared TRAINING_COST,CASH_FORWARD,CURRENT_TRAINING Shared TACTIC_USER_A,TACTIC_USER_B,TACTIC_USER_C,TACTIC_USER_D Shared PROMOTE_FLAG,TRANSFER_QUALITY,FILENAME$ STORE_FILENAME$=FILENAME$-".slamball"+".manager_data" Open Out 1,STORE_FILENAME$ Print #1,MANAGER_NAME$ Print #1,MANAGER_AGE Print #1,CURRENT_TEAM Print #1,CURRENT_WEEK Print #1,SOLD Print #1,CAREER_SOLD Print #1,BOUGHT Print #1,CAREER_BOUGHT Print #1,MANAGER_RATING Print #1,TRAINING_COST Print #1,CASH_FORWARD Print #1,CURRENT_TRAINING Print #1,PROMOTE_FLAG Print #1,TRANSFER_QUALITY Print #1,TACTIC_USER_A Print #1,TACTIC_USER_B Print #1,TACTIC_USER_C Print #1,TACTIC_USER_D Close 1 End Proc Procedure RETRIEVE_MANAGER_DATA Shared MANAGER_NAME$,MANAGER_AGE,CURRENT_TEAM,CURRENT_WEEK Shared SOLD,CAREER_SOLD,BOUGHT,CAREER_BOUGHT,MANAGER_RATING Shared TRAINING_COST,CASH_FORWARD,CURRENT_TRAINING Shared TACTIC_USER_A,TACTIC_USER_B,TACTIC_USER_C,TACTIC_USER_D Shared PROMOTE_FLAG,TRANSFER_QUALITY,FILENAME$ RETRIEVE_FILENAME$=FILENAME$-".slamball"+".manager_data" Open In 1,RETRIEVE_FILENAME$ Input #1,MANAGER_NAME$ Input #1,MANAGER_AGE Input #1,CURRENT_TEAM Input #1,CURRENT_WEEK Input #1,SOLD Input #1,CAREER_SOLD Input #1,BOUGHT Input #1,CAREER_BOUGHT Input #1,MANAGER_RATING Input #1,TRAINING_COST Input #1,CASH_FORWARD Input #1,CURRENT_TRAINING Input #1,PROMOTE_FLAG Input #1,TRANSFER_QUALITY Input #1,TACTIC_USER_A Input #1,TACTIC_USER_B Input #1,TACTIC_USER_C Input #1,TACTIC_USER_D Close 1 End Proc '******************************************************************** ' '******************************************************************** '* TRAINING PART * '******************************************************************** Dim TRAINING_MESSAGE$(5) TRAINING_MAX=1 : CURRENT_TRAINING=0 : TRAINING_QUIT=0 Procedure INITIALISE_TRAINING_MESSAGE_ARRAY Shared TRAINING_MESSAGE$() For X=1 To 5 Read A$ TRAINING_MESSAGE$(X)=A$ Next X Data " tried hard today." Data " gave a good effort." Data " gained some benefit." Data " looked sharp today." Data " worked well today." End Proc Procedure DISPLAY_TRAINING_SELECT_SCREEN Shared FULL_BOX,EDGE_TOP,EDGE_BOTTOM Cls 4 : Reserve Zone 9 MAKE_A_BOX[2,4,318,24,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Ink 7,3, PLACE_TEXT_CENTRALLY[17,"Training",320] X_POS=20 : Y_POS=85 For X=1 To 3 MAKE_A_BOX[X_POS,Y_POS,X_POS+80,Y_POS+40,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Set Zone X,X_POS,Y_POS To X_POS+80,Y_POS+40 Add X_POS,100 Next X X_POS=20 : Y_POS=155 For X=4 To 6 MAKE_A_BOX[X_POS,Y_POS,X_POS+80,Y_POS+40,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Set Zone X,X_POS,Y_POS To X_POS+80,Y_POS+40 Add X_POS,100 Next X MAKE_A_BOX[60,35,100,65,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] : Set Zone 7,60,35 To 100,65 MAKE_A_BOX[220,35,260,65,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] : Set Zone 8,220,35 To 260,65 MAKE_A_BOX[130,37,190,63,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Ink 1,3, : Text 65,53,"More" : Text 225,53,"Less" MAKE_A_BOX[2,232,316,247,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Set Zone 9,2,232 To 316,247 Ink 5,3, : Text 66,243,"Click here when finished" Ink 1,3, Text 27,107,"STRENGTH" : Text 141,107,"SPEED" : Text 225,107,"DEXTERITY" Text 28,178,"INSTINCT" : Text 124,178,"TOUGHNESS" : Text 231,178,"STAMINA" End Proc Procedure FIND_WHICH_ATTRIBUTES_TO_TRAIN Shared TRAINING_QUIT,CURRENT_TEAM,TEAM_CASH() Screen 1 DISPLAY_TRAINING_SELECT_SCREEN Screen To Front 1 TRAINING_QUIT=0 : CASH=1000 Repeat Text 134,54,Str$(CASH)-" "+" " For X=1 To 6 CHECK_MOUSE=Mouse Click : CHECK_MOUSE_KEY=Mouse Key WHICH_ZONE=Mouse Zone If CHECK_MOUSE_KEY=1 and WHICH_ZONE=X TRAIN_THE_PLAYERS[CURRENT_TEAM,CASH,X] End If If CHECK_MOUSE=1 and WHICH_ZONE=7 and CASH<100000 Add CASH,1000 End If If CHECK_MOUSE_KEY=2 and WHICH_ZONE=7 and CASH<100000 Add CASH,1000 : Wait 1 End If If CHECK_MOUSE=1 and WHICH_ZONE=8 and CASH>1000 Add CASH,-1000 End If If CHECK_MOUSE_KEY=2 and WHICH_ZONE=8 and CASH>1000 Add CASH,-1000 : Wait 1 End If If CHECK_MOUSE=1 and WHICH_ZONE=9 TRAINING_QUIT=1 End If Next X Until TRAINING_QUIT=1 Reserve Zone GRAPHIC_SCREEN_FADE End Proc Procedure TRAIN_OTHER_TEAMS_PLAYERS Shared TEAM_CASH(),CURRENT_TEAM CHOOSE_A_RANDOM_TEAM[CURRENT_TEAM] TEAM=Param If TEAM_CASH(TEAM)>50000 TRAIN_THE_PLAYERS[TEAM,20000,Rnd(5)+1] TRAIN_THE_PLAYERS[TEAM,20000,Rnd(5)+1] End If End Proc Procedure TRAIN_THE_PLAYERS[TEAM,CASH,TYPE] Shared TEAM_CASH(),CLUB_TO_PAY(),TRAINING_COST,CURRENT_TRAINING Shared TRAINING_QUIT,TEAM_MAX,CURRENT_TEAM Y_POS=37 FIND_THE_BENEFIT_OF_TRAINING[CASH] BOOST_A=Param : BOOST_B=1 If TEAM<>CURRENT_TEAM Add BOOST_A,8 : Add BOOST_B,4 End If If TEAM=CURRENT_TEAM Cls 4 DISPLAY_MAIN_PLAYER_SELECT_SCREEN Ink 7,3, : Text 96,17,"Training Report" End If For PERSON=1 To TEAM_MAX If CLUB_TO_PAY(PERSON)=TEAM If TYPE=1 GIVE_PLAYER_STRENGTH[PERSON,BOOST_A,BOOST_B] End If If TYPE=2 GIVE_PLAYER_SPEED[PERSON,BOOST_A,BOOST_B] End If If TYPE=3 GIVE_PLAYER_DEXTERITY[PERSON,BOOST_A,BOOST_B] End If If TYPE=4 GIVE_PLAYER_INSTINCT[PERSON,BOOST_A,BOOST_B] End If If TYPE=5 GIVE_PLAYER_HARDNESS[PERSON,BOOST_A,BOOST_B] End If If TYPE=6 GIVE_PLAYER_STAMINA[PERSON,BOOST_A,BOOST_B] End If RETRAIN_SKILLS[PERSON] GIVE_PLAYER_SKILL_TOTAL[PERSON] GIVE_PLAYER_REQUIRED_WAGE[PERSON] If TEAM=CURRENT_TEAM DISPLAY_TRAINING_MESSAGE[PERSON,Y_POS] Add Y_POS,13 End If End If Next PERSON If TEAM=CURRENT_TEAM Inc CURRENT_TRAINING Add TRAINING_COST,CASH Reserve Zone 1 : Set Zone 1,2,232 To 316,247 Repeat CHECK_MOUSE=Mouse Click WHICH_ZONE=Mouse Zone Until CHECK_MOUSE=1 and WHICH_ZONE=1 Reserve Zone TRAINING_QUIT=1 End If TEAM_CASH(TEAM)=TEAM_CASH(TEAM)-CASH End Proc Procedure FIND_THE_BENEFIT_OF_TRAINING[CASH] BENEFIT=CASH/20000 If BENEFIT<1 BENEFIT=1 End If If BENEFIT>5 BENEFIT=5 End If End Proc[BENEFIT] Procedure DISPLAY_TRAINING_MESSAGE[PERSON,Y_POS] Shared TRAINING_MESSAGE$(),NAME$() TEMP=Rnd(4)+1 : Ink 1,11, Text 8,Y_POS,NAME$(PERSON)+TRAINING_MESSAGE$(TEMP) End Proc Procedure RETRAIN_SKILLS[PERSON] GIVE_PLAYER_SHOOTING_SKILL[PERSON] GIVE_PLAYER_PASSING_SKILL[PERSON] GIVE_PLAYER_TACKLING_SKILL[PERSON] GIVE_PLAYER_STEALING_SKILL[PERSON] GIVE_PLAYER_ARTISTRY_SKILL[PERSON] End Proc '******************************************************************** ' '******************************************************************** '* TRANSFER PART * '******************************************************************** TRANSFER_QUALITY=12 : TRANSFER_FLAG=0 : TEAM_TO_SELL=0 : TRANSFER_CANCEL=0 Procedure INITIALISE_TRANSFER_LIST Shared TRANSFER(),TEAM_MAX For PERSON=1 To TEAM_MAX TRANSFER(PERSON)=0 Next PERSON End Proc Procedure CASH_TRANSACTION[SELLING_TEAM,BUYING_TEAM,SELLING_PRICE] Shared TEAM_CASH(),SOLD,CAREER_SOLD,BOUGHT,CAREER_BOUGHT,CURRENT_TEAM Add TEAM_CASH(SELLING_TEAM),SELLING_PRICE TEAM_CASH(BUYING_TEAM)=TEAM_CASH(BUYING_TEAM)-SELLING_PRICE If SELLING_TEAM=CURRENT_TEAM Add SOLD,SELLING_PRICE : Add CAREER_SOLD,SELLING_PRICE End If If BUYING_TEAM=CURRENT_TEAM Add BOUGHT,SELLING_PRICE : Add CAREER_BOUGHT,SELLING_PRICE End If End Proc Procedure TRANSFER_PLAYER[PERSON,BUYING_TEAM,SELLING_TEAM,SELLING_PRICE] Shared SEASONS_WITH_CLUB(),CLUB_TO_PAY() SEASONS_WITH_CLUB(PERSON)=0 CLUB_TO_PAY(PERSON)=BUYING_TEAM TAKE_PLAYER_OFF_TRANSFER_LIST[PERSON] CASH_TRANSACTION[SELLING_TEAM,BUYING_TEAM,SELLING_PRICE] CALCULATE_WAGE_BILLS End Proc Procedure DISPLAY_TRANSFER_LIST Shared TRANSFER(),DISPLAY_POSITION(),CLUB_TO_PAY() Shared TEAM_MAX,CURRENT_TEAM,MANAGER_PLAYERS MANAGER_PLAYERS=0 Screen 1 DISPLAY_MAIN_PLAYER_SELECT_SCREEN INITIALISE_DISPLAY_POSITION Reserve Zone 21 Ink 7,3, : MESSAGE$="Transfer List" PLACE_TEXT_CENTRALLY[13,MESSAGE$,320] FLAG_ZONE=1 : Y_POS=37 For PERSON=1 To TEAM_MAX If CLUB_TO_PAY(PERSON)=CURRENT_TEAM Inc MANAGER_PLAYERS End If If TRANSFER(PERSON)=1 DISPLAY_POSITION(FLAG_ZONE)=PERSON DISPLAY_TRANSFER_PLAYER[PERSON,Y_POS] Set Zone FLAG_ZONE,6,Y_POS-5 To 310,Y_POS Inc FLAG_ZONE : Add Y_POS,10 End If Next PERSON Set Zone 21,2,232 To 316,247 Screen To Front 1 End Proc[FLAG_ZONE] Procedure DISPLAY_TRANSFER_PLAYER[PERSON,Y_POS] Shared NAME$(),AGE(),POSITION(),PRICE(),ACTUAL_POSITION$() Ink 1,11, : Text 6,Y_POS,NAME$(PERSON) Text 152,Y_POS,Str$(AGE(PERSON))-" " Text 171,Y_POS,ACTUAL_POSITION$(POSITION(PERSON)) Text 240,Y_POS,"ï¿½"+Str$(PRICE(PERSON))-" " End Proc Procedure FIND_WHICH_TRANSFER_PLAYER_TO_DISPLAY[PERSON_TOTAL] Shared DISPLAY_POSITION(),CLUB_TO_PAY(),CURRENT_TEAM,TRANSFER_CANCEL TRANSFER_CANCEL=0 Repeat For X=1 To PERSON_TOTAL CHECK_MOUSE=Mouse Key WHICH_ZONE=Mouse Zone If CHECK_MOUSE=1 and WHICH_ZONE=X TEMP_PERSON=DISPLAY_POSITION(X) If CLUB_TO_PAY(TEMP_PERSON)<>CURRENT_TEAM DISPLAY_WHOLE_PLAYER_DATA[TEMP_PERSON,1] OFFER_PRICE_AND_CONTRACT[TEMP_PERSON] End If End If Next X If CHECK_MOUSE=1 and WHICH_ZONE=21 TRANSFER_CANCEL=1 End If Until TRANSFER_CANCEL=1 Reserve Zone GRAPHIC_SCREEN_FADE CHECK_MOUSE=Mouse Click End Proc Procedure MAKE_A_PRICE_OFFER[PERSON] Shared PRICE(),SKILL_TOTAL() If SKILL_TOTAL(PERSON)>=780 SELLING_PRICE=((SKILL_TOTAL(PERSON)*0.65)*1000)+(Rnd(99)+1)*1000 Else SELLING_PRICE=((SKILL_TOTAL(PERSON)*0.5)*1000)+(Rnd(99)+1)*1000 End If SELLING_PRICE=SELLING_PRICE/5000 : SELLING_PRICE=SELLING_PRICE*5000 If SELLING_PRICE>PRICE(PERSON) : SELLING_PRICE=PRICE(PERSON) : End If End Proc[SELLING_PRICE] Procedure MAKE_A_CONTRACT_OFFER[PERSON] Shared PRICE(),WAGE_OFFER(),WEEKLY_WAGE() CONTRACT_OFFER=Rnd(4)+1 TEMP_WAGE=WEEKLY_WAGE(PERSON)-(Rnd(4)+1)*10 TEMP=(Rnd(9)+1)*10 : Add TEMP_WAGE,TEMP If TEMP_WAGE<100 : TEMP_WAGE=100 : End If WAGE_OFFER(PERSON)=TEMP_WAGE End Proc[CONTRACT_OFFER] Procedure OFFER_PRICE_AND_CONTRACT[PERSON] Shared PRICE(),TRANSFER(),WAGE_OFFER(),CONTRACT() Shared TEAM_CASH(),CONTRACT_QUIT,CURRENT_TEAM Shared TRANSFER_CANCEL,MANAGER_PLAYERS,NUMBER_OF_PLAYERS_MAXIMUM CONTRACT_QUIT=0 : SELLING_PRICE=0 : CONTRACT_OFFER=CONTRACT(PERSON) Repeat Text 142,110,Str$(SELLING_PRICE)-" "+" " Text 279,146,Str$(CONTRACT_OFFER)-" " Text 263,190,Str$(WAGE_OFFER(PERSON))-" "+" " CHECK_MOUSE=Mouse Click : CHECK_MOUSE_KEY=Mouse Key WHICH_ZONE=Mouse Zone If CHECK_MOUSE=1 and WHICH_ZONE=1 and SELLING_PRICE<PRICE(PERSON) If SELLING_PRICE<=(TEAM_CASH(CURRENT_TEAM)-1000) Add SELLING_PRICE,1000 End If End If If CHECK_MOUSE_KEY=2 and WHICH_ZONE=1 and SELLING_PRICE<PRICE(PERSON) If SELLING_PRICE<=(TEAM_CASH(CURRENT_TEAM)-1000) Add SELLING_PRICE,1000 End If End If If CHECK_MOUSE=1 and WHICH_ZONE=2 and SELLING_PRICE>=2000 Add SELLING_PRICE,-1000 End If If CHECK_MOUSE_KEY=2 and WHICH_ZONE=2 and SELLING_PRICE>=2000 Add SELLING_PRICE,-1000 End If If CHECK_MOUSE=1 and WHICH_ZONE=5 Add CONTRACT_OFFER,1 If CONTRACT_OFFER>5 : CONTRACT_OFFER=1 : End If End If If CHECK_MOUSE=1 and WHICH_ZONE=6 Add CONTRACT_OFFER,-1 If CONTRACT_OFFER<1 : CONTRACT_OFFER=5 : End If End If If CHECK_MOUSE=1 and WHICH_ZONE=7 and WAGE_OFFER(PERSON)<=6990 Add WAGE_OFFER(PERSON),10 End If If CHECK_MOUSE_KEY=2 and WHICH_ZONE=7 and WAGE_OFFER(PERSON)<=6990 Add WAGE_OFFER(PERSON),10 End If If CHECK_MOUSE=1 and WHICH_ZONE=8 and WAGE_OFFER(PERSON)>=110 Add WAGE_OFFER(PERSON),-10 End If If CHECK_MOUSE_KEY=2 and WHICH_ZONE=8 and WAGE_OFFER(PERSON)>=110 Add WAGE_OFFER(PERSON),-10 End If If CHECK_MOUSE=1 and(WHICH_ZONE=3 or WHICH_ZONE=9) and MANAGER_PLAYERS<NUMBER_OF_PLAYERS_MAXIMUM OFFER_PRICE_TO_CLUB[PERSON,SELLING_PRICE] PRICE_REPLY=Param If PRICE_REPLY=1 OFFER_CONTRACT_TO_PLAYER[PERSON,CONTRACT_OFFER] CONTRACT_REPLY=Param If CONTRACT_REPLY=1 FIND_PLAYERS_TEAM[PERSON] : SELLING_TEAM=Param TRANSFER_ACCEPTED[PERSON,CONTRACT_OFFER,SELLING_PRICE] CONTRACT_VARIABLES_UPDATE[PERSON,CONTRACT_OFFER] TRANSFER_PLAYER[PERSON,CURRENT_TEAM,SELLING_TEAM,SELLING_PRICE] Else NO_TRANSFER_PLAYER[PERSON] End If Else NO_TRANSFER_CLUB[PERSON] End If End If If CHECK_MOUSE=1 and WHICH_ZONE=10 CONTRACT_QUIT=1 End If Until CONTRACT_QUIT=1 Reserve Zone DISPLAY_TRANSFER_LIST End Proc Procedure OFFER_PRICE_TO_CLUB[PERSON,SELLING_PRICE] Shared PRICE(),SKILL_TOTAL() ACCEPT_REJECT=0 If SELLING_PRICE>=PRICE(PERSON) ACCEPT_REJECT=1 End If If SELLING_PRICE>=PRICE(PERSON)-(SKILL_TOTAL(PERSON)*100) ACCEPT_REJECT=1 End If End Proc[ACCEPT_REJECT] Procedure OFFER_PRICE_TO_USERS_TEAM[PERSON,BUYING_TEAM,SELLING_PRICE] Shared TEAMNAME$(),NAME$(),PRICE() Screen 1 : Cls 4 MAKE_BOXES_FOR_MESSAGE Ink 7,3, : Text 110,19,"Transfer Bid" Ink 1,3, : Text 8,85,TEAMNAME$(BUYING_TEAM)+" offer you ï¿½"+Str$(SELLING_PRICE)-" " Text 8,105,"for "+NAME$(PERSON)+" who is on the" Text 8,125,"transfer list for ï¿½"+Str$(PRICE(PERSON))-" "+"." Text 8,145,"Left Mouse Button to accept." Text 8,165,"Right Mouse Button to reject." Screen To Front 1 Wait 25 CHECK_LEFT_RIGHT_CLICK ACCEPT_REJECT=Param End Proc[ACCEPT_REJECT] Procedure TRANSFER_ACCEPTED[PERSON,CONTRACT_LENGTH,SELLING_PRICE] Shared TEAMNAME$(),NAME$(),CLUB_TO_PAY(),CONTRACT_QUIT Screen 2 : Cls 4 MAKE_BOXES_FOR_MESSAGE Ink 7,3, : Text 58,19,"Response to Transfer Offer" Ink 1,3, : Text 8,85,TEAMNAME$(CLUB_TO_PAY(PERSON)) Text 8,105,"accept your cash offer and" Text 8,125,NAME$(PERSON)+" likes the terms." Text 8,145,NAME$(PERSON)+" joins your club" Text 8,165,"for ï¿½"+Str$(SELLING_PRICE)-" " Screen To Front 2 Wait 25 CHECK_FOR_MOUSE_CLICK CONTRACT_QUIT=1 End Proc Procedure TRANSFER_ACCEPTED_USER_MESSAGE[PERSON,BUYING_TEAM,SELLING_PRICE] Shared TEAMNAME$(),NAME$() Screen 2 : Cls 4 MAKE_BOXES_FOR_MESSAGE Ink 7,3, : Text 58,19,"Response to Transfer Offer" Ink 1,3, : Text 8,85,"You accepted the cash offer" Text 8,105,"for "+NAME$(PERSON)+" for ï¿½"+Str$(SELLING_PRICE)-" "+"." Text 8,125,NAME$(PERSON)+" felt the terms were" Text 8,145,"right for him." Text 8,165,NAME$(PERSON)+" joins "+TEAMNAME$(BUYING_TEAM) Screen To Front 2 Wait 25 CHECK_FOR_MOUSE_CLICK GRAPHIC_SCREEN_FADE End Proc Procedure TRANSFER_ACCEPTED_MESSAGE[PERSON,BUYING_TEAM,SELLING_TEAM,SELLING_PRICE] Shared TEAMNAME$(),NAME$(),PRICE() Screen 2 : Cls 4 MAKE_BOXES_FOR_MESSAGE Ink 7,3, : Text 58,19,"Response to Transfer Offer" Ink 1,3, : Text 8,85,TEAMNAME$(SELLING_TEAM)+" sold" Text 8,105,NAME$(PERSON)+" for ï¿½"+Str$(SELLING_PRICE)-" " Text 8,125,"this week to "+TEAMNAME$(BUYING_TEAM)+"." Text 8,145,"He was available for ï¿½"+Str$(PRICE(PERSON))-" " Screen To Front 2 Wait 25 CHECK_FOR_MOUSE_CLICK GRAPHIC_SCREEN_FADE End Proc Procedure NO_TRANSFER_PLAYER[PERSON] Shared NAME$(),TEAMNAME$(),CLUB_TO_PAY(),CONTRACT_QUIT Screen 2 : Cls 4 MAKE_BOXES_FOR_MESSAGE Ink 7,3, : Text 58,19,"Response to Transfer Offer" Ink 1,3, : Text 8,85,TEAMNAME$(CLUB_TO_PAY(PERSON)) Text 8,105,"accepted your cash offer, but" Text 8,125,NAME$(PERSON)+" disliked your terms." Text 8,145,"Your bid was unsuccessful." Screen To Front 2 CHECK_FOR_MOUSE_CLICK CONTRACT_QUIT=1 End Proc Procedure NO_TRANSFER_CLUB[PERSON] Shared TEAMNAME$(),CLUB_TO_PAY(),CONTRACT_QUIT Screen 2 : Cls 4 MAKE_BOXES_FOR_MESSAGE Ink 7,3, : Text 58,19,"Response to Transfer Offer" Ink 1,3, : Text 8,85,TEAMNAME$(CLUB_TO_PAY(PERSON)) Text 8,105,"reject your cash offer." Text 8,145,"Your bid was unsuccessful." Screen To Front 2 CHECK_FOR_MOUSE_CLICK CONTRACT_QUIT=1 End Proc Procedure NO_TRANSFER_USER_CLUB[PERSON,SELLING_PRICE] Shared NAME$() Screen 2 : Cls 4 MAKE_BOXES_FOR_MESSAGE Ink 7,3, : Text 58,19,"Response to Transfer Offer" Ink 1,3, : Text 8,85,"You rejected the cash offer" Text 8,105,"for "+NAME$(PERSON)+" for ï¿½"+Str$(SELLING_PRICE)-" "+"." Text 8,145,"The deal did not go through." Screen To Front 2 CHECK_FOR_MOUSE_CLICK GRAPHIC_SCREEN_FADE End Proc Procedure NO_TRANSFER_USER_PLAYER[PERSON] Shared NAME$() Screen 2 : Cls 4 MAKE_BOXES_FOR_MESSAGE Ink 7,3, : Text 58,19,"Response to Transfer Offer" Ink 1,3, : Text 8,85,"You accepted their cash offer." Text 8,105,NAME$(PERSON)+" felt that the terms" Text 8,125,"were not right for him." Text 8,145,"Therefore, he decided not to move." Screen To Front 2 CHECK_FOR_MOUSE_CLICK GRAPHIC_SCREEN_FADE End Proc Procedure FIND_POSSIBLE_TRANSFER_BID Shared PRICE(),CLUB_RATING(),TEAM_CASH(),CLUB_TO_PAY() Shared CURRENT_TEAM,TRANSFER_FLAG,TEAM_TO_SELL,NUMBER_OF_PLAYERS_MAXIMUM COUNTER=0 : FOUND_PLAYER=0 : SELLING_PRICE=0 : TRANSFER_FLAG=0 CHOOSE_A_RANDOM_TEAM[CURRENT_TEAM] : BUYING_TEAM=Param FIND_NUMBER_OF_PLAYERS_TEAM_HAS[BUYING_TEAM] : NUMBER_OF_PLAYERS=Param CHOOSE_A_RANDOM_TRANSFER_PLAYER[BUYING_TEAM] : PERSON=Param If PERSON<>0 and NUMBER_OF_PLAYERS<NUMBER_OF_PLAYERS_MAXIMUM SELLING_TEAM=CLUB_TO_PAY(PERSON) MAKE_A_PRICE_OFFER[PERSON] : SELLING_PRICE=Param MAKE_A_CONTRACT_OFFER[PERSON] : CONTRACT_OFFER=Param If SELLING_TEAM<>CURRENT_TEAM OFFER_PRICE_TO_CLUB[PERSON,SELLING_PRICE] Else OFFER_PRICE_TO_USERS_TEAM[PERSON,BUYING_TEAM,SELLING_PRICE] End If PRICE_REPLY=Param If PRICE_REPLY=1 OFFER_CONTRACT_TO_PLAYER[PERSON,CONTRACT_OFFER] CONTRACT_REPLY=Param If CONTRACT_REPLY=1 If SELLING_TEAM<>CURRENT_TEAM TRANSFER_ACCEPTED_MESSAGE[PERSON,BUYING_TEAM,SELLING_TEAM,SELLING_PRICE] Else TRANSFER_ACCEPTED_USER_MESSAGE[PERSON,BUYING_TEAM,SELLING_PRICE] End If CONTRACT_VARIABLES_UPDATE[PERSON,CONTRACT_OFFER] TRANSFER_PLAYER[PERSON,BUYING_TEAM,SELLING_TEAM,SELLING_PRICE] Else If SELLING_TEAM=CURRENT_TEAM NO_TRANSFER_USER_PLAYER[PERSON] End If End If Else If SELLING_TEAM=CURRENT_TEAM NO_TRANSFER_USER_CLUB[PERSON,SELLING_PRICE] End If End If End If TRANSFER_FLAG=1 End Proc Procedure FIND_PLAYERS_TEAM[PERSON] Shared CLUB_TO_PAY() TEMP_TEAM=CLUB_TO_PAY(PERSON) End Proc[TEMP_TEAM] Procedure CHECK_LEFT_RIGHT_CLICK ACCEPT_REJECT=0 Repeat CHECK_MOUSE=Mouse Click If CHECK_MOUSE=1 : ACCEPT_REJECT=1 : End If If CHECK_MOUSE=2 : ACCEPT_REJECT=0 : End If Until CHECK_MOUSE=1 or CHECK_MOUSE=2 End Proc[ACCEPT_REJECT] Procedure CHOOSE_A_RANDOM_TEAM[TEAM] Shared NUMBER_OF_TEAMS Repeat TEMP_TEAM=Rnd(NUMBER_OF_TEAMS-1)+1 Until TEMP_TEAM<>TEAM End Proc[TEMP_TEAM] Procedure FIND_NUMBER_OF_PLAYERS_TEAM_HAS[TEAM] Shared CLUB_TO_PAY(),TEAM_MAX COUNT=0 For PERSON=1 To TEAM_MAX If CLUB_TO_PAY(PERSON)=TEAM Inc COUNT End If Next PERSON End Proc[COUNT] Procedure CHOOSE_A_RANDOM_TRANSFER_PLAYER[TEAM] Shared CLUB_TO_PAY(),TRANSFER(),CLUB_RATING(),SKILL_TOTAL() Shared PRICE(),AGE(),TEAM_CASH(),POSITION(),TEAM_MAX,CURRENT_WEEK PERSON=0 : COUNT=1 : SKILL=CLUB_RATING(TEAM)*13 Repeat If CLUB_TO_PAY(COUNT)<>TEAM and TRANSFER(COUNT)=1 and PRICE(COUNT)<TEAM_CASH(TEAM) If SKILL_TOTAL(COUNT)>=SKILL If AGE(COUNT)<32 or(AGE(COUNT)=32 and CURRENT_WEEK<22) SKILL=SKILL_TOTAL(COUNT) PERSON=COUNT End If End If End If Inc COUNT Until COUNT=TEAM_MAX+1 End Proc[PERSON] Procedure PLACE_PLAYER_ON_TRANSFER_LIST[PERSON] Shared TRANSFER() TRANSFER(PERSON)=1 GIVE_PLAYER_MORALE[PERSON,5,5,2] End Proc Procedure TAKE_PLAYER_OFF_TRANSFER_LIST[PERSON] Shared TRANSFER() TRANSFER(PERSON)=0 GIVE_PLAYER_MORALE[PERSON,5,5,1] End Proc Procedure FIND_IF_PLAYER_ELIGIBLE[TEAM,PERSON] Shared CLUB_RATING(),SKILL_TOTAL(),TRANSFER(),TRANSFER_QUALITY ELIGIBLE_PLAYER=0 If SKILL_TOTAL(PERSON)<=CLUB_RATING(TEAM)*TRANSFER_QUALITY and TRANSFER(PERSON)=0 ELIGIBLE_PLAYER=1 End If End Proc[ELIGIBLE_PLAYER] Procedure GIVE_PLAYER_A_PRICE[PERSON] Shared PRICE(),SKILL_TOTAL(),GAMES_CAREER(),GOALS_CAREER() PRICE(PERSON)=0 If SKILL_TOTAL(PERSON)>=650 : TEMP_SKILL=SKILL_TOTAL(PERSON) : End If If SKILL_TOTAL(PERSON)<650 : TEMP_SKILL=SKILL_TOTAL(PERSON)*0.75 : End If Add PRICE(PERSON),TEMP_SKILL*1000 PRICE(PERSON)=PRICE(PERSON)/5000 : PRICE(PERSON)=PRICE(PERSON)*5000 End Proc Procedure MAKE_ORIGINAL_TRANSFER_LIST[TEAM] INITIALISE_TRANSFER_LIST TRANSFERS=Rnd(8)+2 For PERSON=1 To TRANSFERS MAKE_A_NEW_TRANSFER_PLAYER[TEAM] Next PERSON End Proc Procedure MAKE_A_NEW_TRANSFER_PLAYER[TEAM] Shared CLUB_TO_PAY(),TEAM_MAX,NUMBER_OF_TEAMS,CURRENT_TEAM PERSON=1 TRANSFER_LIST=0 Repeat If CLUB_TO_PAY(PERSON)<>0 and CLUB_TO_PAY(PERSON)<>CURRENT_TEAM TEMP_TEAM=CLUB_TO_PAY(PERSON) FIND_IF_PLAYER_ELIGIBLE[TEMP_TEAM,PERSON] : ELIGIBLE=Param End If If ELIGIBLE=1 GIVE_PLAYER_A_PRICE[PERSON] PLACE_PLAYER_ON_TRANSFER_LIST[PERSON] TRANSFER_LIST=1 End If Inc PERSON Until PERSON=TEAM_MAX+1 or TRANSFER_LIST=1 End Proc '******************************************************************** ' '******************************************************************** '* MATCH COMMENTARY PART * '******************************************************************** NUMBER_IN_TEAM=6 Dim USER_TEAM(NUMBER_IN_TEAM),SQUAD_ARRAY(NUMBER_IN_TEAM*2) Dim GOAL_SCORED$(9),GOAL_SAVED$(9),PASS_MADE$(9),PERSON_RUNS$(9) Dim INJURY_MADE$(9),INJURY_MISSED$(9) TACTIC_RUNNING_HOME=0 : TACTIC_PASSING_HOME=0 TACTIC_TACKLING_HOME=0 : TACTIC_STEALING_HOME=0 TACTIC_RUNNING_AWAY=0 : TACTIC_PASSING_AWAY=0 TACTIC_TACKLING_AWAY=0 : TACTIC_STEALING_AWAY=0 SUCCESS=0 : TEAM_WITH_BALL=0 : TEAM_HAS_SHOT=2 SUCCESS_SHOT=50 : SUCCESS_PASS=10 Procedure RETRIEVE_MATCH_MESSAGES Shared GOAL_SCORED$(),GOAL_SAVED$(),PASS_MADE$() Shared PERSON_RUNS$(),INJURY_MADE$(),INJURY_MISSED$() Open In 1,"SlamBall.Match_Messages" For X=0 To 9 Line Input #1,GOAL_SCORED$(X) Line Input #1,GOAL_SAVED$(X) Line Input #1,PASS_MADE$(X) Line Input #1,PERSON_RUNS$(X) Line Input #1,INJURY_MADE$(X) Line Input #1,INJURY_MISSED$(X) Next X Close 1 End Proc Procedure INITIALISE_USER_TEAM Shared USER_TEAM(),NUMBER_IN_TEAM For PERSON=1 To NUMBER_IN_TEAM USER_TEAM(PERSON)=0 Next PERSON End Proc Procedure INITIALISE_MATCH_SQUAD_ARRAYS[THE_HOME_TEAM,THE_AWAY_TEAM] Shared SQUAD_ARRAY(),USER_TEAM(),INJURY_LENGTH() Shared CLUB_TO_PAY(),CURRENT_TEAM,NUMBER_IN_TEAM For PERSON=1 To(NUMBER_IN_TEAM*2) SQUAD_ARRAY(PERSON)=0 Next PERSON For PERSON=1 To NUMBER_IN_TEAM If THE_HOME_TEAM=CURRENT_TEAM and INJURY_LENGTH(USER_TEAM(PERSON))=0 If CLUB_TO_PAY(USER_TEAM(PERSON))=CURRENT_TEAM SQUAD_ARRAY(PERSON)=USER_TEAM(PERSON) End If End If If THE_AWAY_TEAM=CURRENT_TEAM and INJURY_LENGTH(USER_TEAM(PERSON))=0 If CLUB_TO_PAY(USER_TEAM(PERSON))=CURRENT_TEAM SQUAD_ARRAY(PERSON+NUMBER_IN_TEAM)=USER_TEAM(PERSON) End If End If Next PERSON End Proc Procedure ALTER_TEAM_FAME[TEAM,BOOST,TYPE] Shared TEAM_FAME() If TYPE=1 Add TEAM_FAME(TEAM),BOOST If TEAM_FAME(TEAM)>50 : TEAM_FAME(TEAM)=50 : End If End If If TYPE=2 TEAM_FAME(TEAM)=TEAM_FAME(TEAM)-BOOST If TEAM_FAME(TEAM)<1 : TEAM_FAME(TEAM)=1 : End If End If End Proc Procedure MAKE_MATCH_BOX Shared FULL_BOX,EDGE_TOP,EDGE_BOTTOM MAKE_A_BOX[4,2,636,256,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] End Proc Procedure MAKE_BOX_FOR_FIXTURE_SCREEN Shared FULL_BOX,EDGE_TOP,EDGE_BOTTOM MAKE_A_BOX[4,2,316,256,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] End Proc Procedure DISPLAY_MAIN_SQUAD_SELECT_SCREEN Shared FULL_BOX,EDGE_TOP,EDGE_BOTTOM Cls 4 MAKE_A_BOX[2,4,316,24,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[2,29,316,139,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[2,149,316,159,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Ink 7,3, : Text 66,157,"Click here when finished" End Proc Procedure DISPLAY_MAIN_SQUAD_BUTTONS Shared FULL_BOX,EDGE_TOP,EDGE_BOTTOM MAKE_A_BOX[338,170,498,180,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[338,230,498,240,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Set Zone 11,338,170 To 498,180 : Set Zone 16,338,230 To 498,240 MAKE_A_BOX[240,190,400,200,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[440,190,600,200,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Set Zone 12,240,190 To 400,200 : Set Zone 13,440,190 To 600,200 MAKE_A_BOX[240,210,400,220,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[440,210,600,220,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Set Zone 14,240,210 To 400,220 : Set Zone 15,440,210 To 600,220 MAKE_A_BOX[355,40,415,55,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[515,40,575,55,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Ink 7,4, : Text 357,35,"Running" : Text 517,35,"Passing" MAKE_A_BOX[355,100,415,115,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[515,100,575,115,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Ink 7,4 : Text 354,125,"Tackling" : Text 514,125,"Stealing" MAKE_A_BOX[435,42,495,53,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] MAKE_A_BOX[435,102,495,113,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Set Zone 17,435,42 To 495,53 : Set Zone 18,435,102 To 495,113 MAKE_A_BOX[96,170,228,180,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Text 440,50,"Change" : Text 440,110,"Change" End Proc Procedure DISPLAY_SQUAD[TEAM] Shared POSITION(),DISPLAY_POSITION(),INJURY_LENGTH(),CLUB_TO_PAY(),TEAM_MAX Screen 3 DISPLAY_MAIN_SQUAD_SELECT_SCREEN INITIALISE_DISPLAY_POSITION Text 112,13,"Your Squad" Reserve Zone 19 : FLAG_ZONE=1 : Y_POS=37 DISPLAY_MAIN_SQUAD_BUTTONS For OUTER_LOOP=1 To 3 For PERSON=1 To TEAM_MAX If CLUB_TO_PAY(PERSON)=TEAM and POSITION(PERSON)=OUTER_LOOP DISPLAY_POSITION(FLAG_ZONE)=PERSON If INJURY_LENGTH(PERSON)>0 Ink 0,11, Else Ink 1,11, End If DISPLAY_PLAYER[PERSON,Y_POS] Set Zone FLAG_ZONE,6,Y_POS-5 To 310,Y_POS Inc FLAG_ZONE : Add Y_POS,10 End If Next PERSON Next OUTER_LOOP Set Zone 19,2,149 To 316,159 Screen To Front 3 End Proc[FLAG_ZONE] Procedure DISPLAY_THE_SQUAD[TACTIC_1,TACTIC_2,TACTIC_3,TACTIC_4,BOOST] Shared NAME$(),SQUAD_ARRAY(),CLUB_TO_PAY(),CURRENT_TEAM Text 375,51,Str$(TACTIC_1)-" "+" " : Text 535,51,Str$(TACTIC_2)-" "+" " Text 375,111,Str$(TACTIC_3)-" "+" " : Text 535,111,Str$(TACTIC_4)-" "+" " Text 342,178,NAME$(SQUAD_ARRAY(1+BOOST)) : Text 342,238,NAME$(SQUAD_ARRAY(6+BOOST)) Text 244,198,NAME$(SQUAD_ARRAY(2+BOOST)) : Text 444,198,NAME$(SQUAD_ARRAY(3+BOOST)) Text 244,218,NAME$(SQUAD_ARRAY(4+BOOST)) : Text 444,218,NAME$(SQUAD_ARRAY(5+BOOST)) End Proc Procedure FIND_WHICH_PLAYER_TO_PICK[TEAM,WHICH_TEAM,PERSON_TOTAL] Shared DISPLAY_POSITION(),INJURY_LENGTH(),CLUB_TO_PAY() Shared TACTIC_USER_A,TACTIC_USER_B,TACTIC_USER_C,TACTIC_USER_D Shared TEAM_MAX,NUMBER_IN_TEAM,CURRENT_TEAM CANCEL=0 : CURRENT_SHIRT=1 TACTIC_1=TACTIC_USER_A : TACTIC_2=TACTIC_USER_B TACTIC_3=TACTIC_USER_C : TACTIC_4=TACTIC_USER_D Repeat Ink 7,3, : Text 102,178,"Current Shirt "+Str$(CURRENT_SHIRT)-" "+" " : Ink 1,11, If WHICH_TEAM=1 DISPLAY_THE_SQUAD[TACTIC_1,TACTIC_2,TACTIC_3,TACTIC_4,0] End If If WHICH_TEAM=2 DISPLAY_THE_SQUAD[TACTIC_1,TACTIC_2,TACTIC_3,TACTIC_4,NUMBER_IN_TEAM] End If For MAN=1 To PERSON_TOTAL CHECK_MOUSE=Mouse Key WHICH_ZONE=Mouse Zone If CHECK_MOUSE=1 and WHICH_ZONE=MAN PERSON=DISPLAY_POSITION(WHICH_ZONE) If INJURY_LENGTH(PERSON)=0 and CLUB_TO_PAY(PERSON)=CURRENT_TEAM If WHICH_TEAM=1 GIVE_PLAYER_A_SHIRT[PERSON,CURRENT_SHIRT,TEAM,1,NUMBER_IN_TEAM] End If If WHICH_TEAM=2 GIVE_PLAYER_A_SHIRT[PERSON,CURRENT_SHIRT+NUMBER_IN_TEAM,TEAM,NUMBER_IN_TEAM+1,NUMBER_IN_TEAM*2] End If End If End If Next MAN For SHIRT_BOX=11 To 16 CHECK_MOUSE=Mouse Key WHICH_ZONE=Mouse Zone If CHECK_MOUSE=1 and WHICH_ZONE=SHIRT_BOX CURRENT_SHIRT=WHICH_ZONE-10 End If Next SHIRT_BOX CHECK_MOUSE=Mouse Key WHICH_ZONE=Mouse Zone If CHECK_MOUSE=1 and WHICH_ZONE=17 and TACTIC_1<80 Add TACTIC_1,1 Add TACTIC_2,-1 End If If CHECK_MOUSE=2 and WHICH_ZONE=17 and TACTIC_2<80 Add TACTIC_1,-1 Add TACTIC_2,1 End If If CHECK_MOUSE=1 and WHICH_ZONE=18 and TACTIC_3<80 Add TACTIC_3,1 Add TACTIC_4,-1 End If If CHECK_MOUSE=2 and WHICH_ZONE=18 and TACTIC_4<80 Add TACTIC_3,-1 Add TACTIC_4,1 End If If CHECK_MOUSE=1 and WHICH_ZONE=19 CANCEL=1 End If Until CANCEL=1 CONVERT_TACTICS[WHICH_TEAM,TACTIC_1,TACTIC_2,TACTIC_3,TACTIC_4] TACTIC_USER_A=TACTIC_1 : TACTIC_USER_B=TACTIC_2 TACTIC_USER_C=TACTIC_3 : TACTIC_USER_D=TACTIC_4 End Proc Procedure CONVERT_TACTICS[WHICH_TEAM,TACTIC_1,TACTIC_2,TACTIC_3,TACTIC_4] Shared TACTIC_RUNNING_HOME,TACTIC_PASSING_HOME,TACTIC_TACKLING_HOME,TACTIC_STEALING_HOME Shared TACTIC_RUNNING_AWAY,TACTIC_PASSING_AWAY,TACTIC_TACKLING_AWAY,TACTIC_STEALING_AWAY If WHICH_TEAM=1 TACTIC_RUNNING_HOME=TACTIC_1 : TACTIC_PASSING_HOME=TACTIC_2 TACTIC_TACKLING_HOME=TACTIC_3 : TACTIC_TACKLING_HOME=TACTIC_4 End If If WHICH_TEAM=2 TACTIC_RUNNING_AWAY=TACTIC_1 : TACTIC_PASSING_AWAY=TACTIC_2 TACTIC_TACKLING_AWAY=TACTIC_3 : TACTIC_TACKLING_AWAY=TACTIC_4 End If End Proc Procedure TRANSFER_TEAM_TO_USER_TEAM[BOUND_A,BOUND_B] Shared SQUAD_ARRAY(),USER_TEAM() COUNT=1 For PERSON=BOUND_A To BOUND_B USER_TEAM(COUNT)=SQUAD_ARRAY(PERSON) Inc COUNT Next PERSON End Proc Procedure GIVE_PLAYER_A_SHIRT[PERSON,SHIRT,TEAM,BOUND_A,BOUND_B] Shared SQUAD_ARRAY(),CLUB_TO_PAY(),CURRENT_TEAM If CLUB_TO_PAY(PERSON)<>0 IS_PLAYER_PICKED[PERSON,BOUND_A,BOUND_B,1] SQUAD_ARRAY(SHIRT)=PERSON If TEAM=CURRENT_TEAM CLEAR_OLD_PLAYER_NAME[SHIRT] End If End If End Proc Procedure IS_PLAYER_PICKED[PERSON,BOUND_A,BOUND_B,TYPE] Shared SQUAD_ARRAY() TEMP_PICKED=0 For SQUAD=BOUND_A To BOUND_B If PERSON=SQUAD_ARRAY(SQUAD) If TYPE=1 SQUAD_ARRAY(SQUAD)=0 End If If TYPE=2 TEMP_PICKED=1 End If End If Next SQUAD End Proc[TEMP_PICKED] Procedure CLEAR_OLD_PLAYER_NAME[SHIRT] If SHIRT=1 or SHIRT=7 Text 342,178," " End If If SHIRT=6 or SHIRT=12 Text 342,238," " End If If SHIRT=2 or SHIRT=8 Text 244,198," " End If If SHIRT=3 or SHIRT=9 Text 444,198," " End If If SHIRT=4 or SHIRT=10 Text 244,218," " End If If SHIRT=5 or SHIRT=11 Text 444,218," " End If End Proc Procedure PICK_COMPUTER_TEAM[THE_HOME_TEAM,THE_AWAY_TEAM] Shared INJURY_LENGTH(),CLUB_TO_PAY(),SKILL_SHOT() Shared TEAM_MAX,NUMBER_IN_TEAM,CURRENT_TEAM PERSON_HOME=1 : PERSON_AWAY=NUMBER_IN_TEAM+1 : TEMP_SKILL=70 For SKILL_LOOP=1 To 3 For PERSON=1 To TEAM_MAX If CLUB_TO_PAY(PERSON)=THE_HOME_TEAM and INJURY_LENGTH(PERSON)=0 and SKILL_SHOT(PERSON)>=TEMP_SKILL and PERSON_HOME<=NUMBER_IN_TEAM and THE_HOME_TEAM<>CURRENT_TEAM IS_PLAYER_PICKED[PERSON,1,NUMBER_IN_TEAM,2] If Param=0 GIVE_PLAYER_A_SHIRT[PERSON,PERSON_HOME,THE_HOME_TEAM,1,NUMBER_IN_TEAM] Inc PERSON_HOME End If End If If CLUB_TO_PAY(PERSON)=THE_AWAY_TEAM and INJURY_LENGTH(PERSON)=0 and SKILL_SHOT(PERSON)>=TEMP_SKILL and PERSON_AWAY<=NUMBER_IN_TEAM*2 and THE_AWAY_TEAM<>CURRENT_TEAM IS_PLAYER_PICKED[PERSON,NUMBER_IN_TEAM+1,NUMBER_IN_TEAM*2,2] If Param=0 GIVE_PLAYER_A_SHIRT[PERSON,PERSON_AWAY,THE_AWAY_TEAM,NUMBER_IN_TEAM+1,NUMBER_IN_TEAM*2] Inc PERSON_AWAY End If End If Next PERSON Add TEMP_SKILL,-30 Next SKILL_LOOP End Proc Procedure GENERATE_COMPUTER_TACTICS[WHICH_TEAM] TACTIC_1=Rnd(60)+20 TACTIC_2=100-TACTIC_1 TACTIC_3=Rnd(60)+20 TACTIC_4=100-TACTIC_3 If WHICH_TEAM=1 CONVERT_TACTICS[WHICH_TEAM,TACTIC_1,TACTIC_2,TACTIC_3,TACTIC_4] End If If WHICH_TEAM=2 CONVERT_TACTICS[WHICH_TEAM,TACTIC_1,TACTIC_2,TACTIC_3,TACTIC_4] End If End Proc Procedure SQUAD_VARIABLES_UPDATE Shared KNOWLEDGE(),GAMES_CAREER(),GAMES_SEASON(),MORALE(),SQUAD_ARRAY(),NUMBER_IN_TEAM BOUND_A=1 : BOUND_B=5 For OUTER_LOOP=1 To 2 For PERSON=BOUND_A To BOUND_B Add GAMES_CAREER(SQUAD_ARRAY(PERSON)),1 Add GAMES_SEASON(SQUAD_ARRAY(PERSON)),1 Add KNOWLEDGE(SQUAD_ARRAY(PERSON)),1 TEMP_PERSON=SQUAD_ARRAY(PERSON) GIVE_PLAYER_MORALE[TEMP_PERSON,1,2,1] Next PERSON Add BOUND_A,NUMBER_IN_TEAM : Add BOUND_B,NUMBER_IN_TEAM Next OUTER_LOOP End Proc Procedure FIND_WHICH_ACTION_HAPPENS[THE_HOME_TEAM,THE_AWAY_TEAM,WATCH_THE_GAME,Y_POS,TYPE] Shared TACTIC_RUNNING_HOME,TACTIC_PASSING_HOME,TACTIC_TACKLING_HOME,TACTIC_STEALING_HOME Shared TACTIC_RUNNING_AWAY,TACTIC_PASSING_AWAY,TACTIC_TACKLING_AWAY,TACTIC_STEALING_AWAY Shared SUCCESS,TEAM_WITH_BALL,TEAM_HAS_SHOT,NUMBER_IN_TEAM If TEAM_WITH_BALL=THE_HOME_TEAM TEAM_ATTACK=THE_HOME_TEAM : TEAM_DEFEND=THE_AWAY_TEAM PERSON_ATTACK=0 : PERSON_DEFEND=NUMBER_IN_TEAM : WHICH_TEAM=1 : SCORE=1 : MISS=0 TACTIC_ATTACK_A=TACTIC_RUNNING_HOME : TACTIC_ATTACK_B=TACTIC_PASSING_HOME TACTIC_DEFEND_A=TACTIC_TACKLING_AWAY : TACTIC_DEFEND_B=TACTIC_STEALING_AWAY End If If TEAM_WITH_BALL=THE_AWAY_TEAM TEAM_ATTACK=THE_AWAY_TEAM : TEAM_DEFEND=THE_HOME_TEAM PERSON_ATTACK=NUMBER_IN_TEAM : PERSON_DEFEND=0 : WHICH_TEAM=2 : SCORE=0 : MISS=1 TACTIC_ATTACK_A=TACTIC_RUNNING_AWAY : TACTIC_ATTACK_B=TACTIC_PASSING_AWAY TACTIC_DEFEND_A=TACTIC_TACKLING_HOME : TACTIC_DEFEND_B=TACTIC_STEALING_HOME End If If SUCCESS=TEAM_HAS_SHOT FIND_TACTIC[TACTIC_DEFEND_A,TACTIC_DEFEND_B] : TACTIC_DEFEND=Param TEAM_SHOOTS[WHICH_TEAM,TEAM_ATTACK,WATCH_THE_GAME,Y_POS,TYPE,PERSON_ATTACK,PERSON_DEFEND,TACTIC_DEFEND,SCORE,MISS] RESULT=0 End If If SUCCESS<TEAM_HAS_SHOT FIND_TACTIC[TACTIC_ATTACK_A,TACTIC_ATTACK_B] : TACTIC_ATTACK=Param FIND_TACTIC[TACTIC_DEFEND_A,TACTIC_DEFEND_B] : TACTIC_DEFEND=Param If TACTIC_ATTACK=1 TEAM_RUNS[WHICH_TEAM,WATCH_THE_GAME,Y_POS,PERSON_ATTACK,PERSON_DEFEND,SCORE,MISS,TACTIC_DEFEND] RESULT=Param End If If TACTIC_ATTACK=2 TEAM_PASSES[WHICH_TEAM,WATCH_THE_GAME,Y_POS,PERSON_ATTACK,PERSON_DEFEND,SCORE,MISS,TACTIC_DEFEND] RESULT=Param End If End If If RESULT=1 Inc SUCCESS End If If RESULT=0 Swap TEAM_ATTACK,TEAM_DEFEND TEAM_WITH_BALL=TEAM_ATTACK SUCCESS=0 End If End Proc Procedure FIND_TACTIC[TACTIC_A,TACTIC_B] TACTIC=Rnd(100) If TACTIC<TACTIC_A RESULT=1 Else RESULT=2 End If End Proc[RESULT] Procedure FIND_WHICH_PLAYER_SHOOTS[BOOST] Shared SQUAD_ARRAY() TEMP=Rnd(10) If TEMP<=4 : PERSON=SQUAD_ARRAY(1+BOOST) : End If If TEMP>=5 and TEMP<=6 : PERSON=SQUAD_ARRAY(2+BOOST) : End If If TEMP>=7 and TEMP<=8 : PERSON=SQUAD_ARRAY(3+BOOST) : End If If TEMP=9 : PERSON=SQUAD_ARRAY(4+BOOST) : End If If TEMP=10 : PERSON=SQUAD_ARRAY(5+BOOST) : End If End Proc[PERSON] Procedure FIND_WHICH_PLAYER_TACKLES[BOOST] Shared SQUAD_ARRAY() TEMP=Rnd(10) If TEMP=0 : PERSON=SQUAD_ARRAY(1+BOOST) : End If If TEMP>=1 and TEMP<=2 : PERSON=SQUAD_ARRAY(2+BOOST) : End If If TEMP>=3 and TEMP<=4 : PERSON=SQUAD_ARRAY(3+BOOST) : End If If TEMP>=5 and TEMP<=7 : PERSON=SQUAD_ARRAY(4+BOOST) : End If If TEMP>=8 and TEMP<=10 : PERSON=SQUAD_ARRAY(5+BOOST) : End If End Proc[PERSON] Procedure TEAM_SHOOTS[WHICH_TEAM,TEAM_ATTACK,WATCH_THE_GAME,Y_POS,TYPE,PERSON_ATTACK,PERSON_DEFEND,TACTIC_DEFEND,SCORE,MISS] Shared LEAGUE_GOALS(),KNOWLEDGE(),NAME$(),GOAL_SCORED$(),GOAL_SAVED$() FIND_WHICH_PLAYER_SHOOTS[PERSON_ATTACK] : PERSON_SHOOTING=Param FIND_WHICH_PLAYER_TACKLES[PERSON_DEFEND] : DEFENDER=Param FIND_RESULT_OF_SHOT[PERSON_SHOOTING,DEFENDER,TACTIC_DEFEND] : RESULT=Param If RESULT=1 If TYPE=1 : Inc LEAGUE_GOALS(TEAM_ATTACK) : End If If TYPE=2 : A_CUP_GOAL[TEAM_ATTACK,WHICH_TEAM] : End If GIVE_PLAYER_A_GOAL[PERSON_SHOOTING] If WATCH_THE_GAME=1 Ink SCORE,11, Text 12,Y_POS,NAME$(PERSON_SHOOTING)+GOAL_SCORED$(Rnd(9)) End If Else Inc KNOWLEDGE(DEFENDER) GIVE_PLAYER_MORALE[PERSON_SHOOTING,1,0,2] If WATCH_THE_GAME=1 Ink MISS,11, Text 12,Y_POS,NAME$(DEFENDER)+GOAL_SAVED$(Rnd(9)) End If End If End Proc Procedure FIND_RESULT_OF_SHOT[PERSON_ATTACK,PERSON_DEFEND,TACTIC] Shared SKILL_SHOT(),SKILL_ART(),SKILL_TACKLE(),SKILL_STEAL() Shared STRENGTH(),KNOWLEDGE(),MORALE(),SUCCESS_SHOT RESULT=0 : SKILL_ATTACK=0 : SKILL_DEFEND=0 Add SKILL_ATTACK,Rnd(KNOWLEDGE(PERSON_ATTACK))/10 : Add SKILL_ATTACK,Rnd(MORALE(PERSON_ATTACK)) Add SKILL_ATTACK,Rnd(SKILL_SHOT(PERSON_ATTACK)) : Add SKILL_ATTACK,Rnd(SKILL_ART(PERSON_ATTACK)) Add SKILL_DEFEND,Rnd(KNOWLEDGE(PERSON_DEFEND))/10 : Add SKILL_DEFEND,Rnd(MORALE(PERSON_DEFEND)) Add SKILL_DEFEND,Rnd(STRENGTH(PERSON_DEFEND)) If TACTIC=1 Add SKILL_DEFEND,Rnd(SKILL_TACKLE(PERSON_DEFEND)) Else Add SKILL_DEFEND,Rnd(SKILL_STEAL(PERSON_DEFEND)) End If If(SKILL_ATTACK-SKILL_DEFEND)>=SUCCESS_SHOT RESULT=1 End If End Proc[RESULT] Procedure A_CUP_GOAL[TEAM_SHOOTING,WHICH_TEAM] Shared GOALS_HOME(),GOALS_AWAY() If WHICH_TEAM=1 : Inc GOALS_HOME(TEAM_SHOOTING) : End If If WHICH_TEAM=2 : Inc GOALS_AWAY(TEAM_SHOOTING) : End If End Proc Procedure GIVE_PLAYER_A_GOAL[PERSON] Shared GOALS_CAREER(),GOALS_SEASON(),KNOWLEDGE() Inc GOALS_CAREER(PERSON) Inc GOALS_SEASON(PERSON) Inc KNOWLEDGE(PERSON) GIVE_PLAYER_MORALE[PERSON,1,3,1] End Proc Procedure TEAM_PASSES[WHICH_TEAM,WATCH_THE_GAME,Y_POS,PERSON_ATTACK,PERSON_DEFEND,SCORE,MISS,TACTIC_DEFEND] Shared NAME$(),PASS_MADE$(),KNOWLEDGE() FIND_WHICH_PLAYER_TACKLES[PERSON_ATTACK] : PASSER=Param Repeat FIND_WHICH_PLAYER_TACKLES[PERSON_ATTACK] : RECEIVER=Param Until(PASSER<>RECEIVER) or(PASSER=0 or RECEIVER=0) FIND_WHICH_PLAYER_TACKLES[PERSON_DEFEND] : TACKLER=Param FIND_RESULT_OF_PASS[PASSER,TACKLER,TACTIC_DEFEND] : RESULT=Param If RESULT=1 and WATCH_THE_GAME=1 Inc KNOWLEDGE(PASSER) Ink SCORE,3, : Text 12,Y_POS,NAME$(PASSER)+PASS_MADE$(Rnd(9))+NAME$(RECEIVER) End If If RESULT=0 PERFORM_TACKLE[WHICH_TEAM,TACKLER,PASSER,PERSON_ATTACK,WATCH_THE_GAME,Y_POS,MISS] End If End Proc[RESULT] Procedure FIND_RESULT_OF_PASS[PERSON_ATTACK,PERSON_DEFEND,TACTIC] Shared SKILL_PASS(),SKILL_ART(),SKILL_TACKLE(),SKILL_STEAL() Shared STRENGTH(),KNOWLEDGE(),MORALE(),SUCCESS_PASS RESULT=0 : SKILL_ATTACK=0 : SKILL_DEFEND=0 Add SKILL_ATTACK,Rnd(KNOWLEDGE(PERSON_ATTACK))/10 : Add SKILL_ATTACK,Rnd(MORALE(PERSON_ATTACK)) Add SKILL_ATTACK,Rnd(SKILL_PASS(PERSON_ATTACK)) : Add SKILL_ATTACK,Rnd(SKILL_ART(PERSON_ATTACK)) Add SKILL_DEFEND,Rnd(KNOWLEDGE(PERSON_DEFEND))/10 : Add SKILL_DEFEND,Rnd(MORALE(PERSON_DEFEND)) Add SKILL_DEFEND,Rnd(STRENGTH(PERSON_DEFEND)) If TACTIC=1 Add SKILL_DEFEND,Rnd(SKILL_TACKLE(PERSON_DEFEND)) Else Add SKILL_DEFEND,Rnd(SKILL_STEAL(PERSON_DEFEND)) End If If(SKILL_ATTACK-SKILL_DEFEND)>=SUCCESS_PASS RESULT=1 End If End Proc[RESULT] Procedure TEAM_RUNS[WHICH_TEAM,WATCH_THE_GAME,Y_POS,PERSON_ATTACK,PERSON_DEFEND,SCORE,MISS,TACTIC_DEFEND] Shared NAME$(),PERSON_RUNS$(),KNOWLEDGE() FIND_WHICH_PLAYER_SHOOTS[PERSON_ATTACK] : PERSON_RUNS=Param FIND_WHICH_PLAYER_TACKLES[PERSON_DEFEND] : TACKLER=Param FIND_RESULT_OF_RUN[PERSON_RUNS,TACKLER,TACTIC_DEFEND] : RESULT=Param If RESULT=1 and WATCH_THE_GAME=1 Inc KNOWLEDGE(PERSON_RUNS) Ink SCORE,3, : Text 12,Y_POS,NAME$(PERSON_RUNS)+PERSON_RUNS$(Rnd(9)) End If If RESULT=0 PERFORM_TACKLE[WHICH_TEAM,TACKLER,PERSON_RUNS,PERSON_ATTACK,WATCH_THE_GAME,Y_POS,MISS] End If End Proc[RESULT] Procedure FIND_RESULT_OF_RUN[PERSON_ATTACK,PERSON_DEFEND,TACTIC] Shared SPEED(),SKILL_ART(),SKILL_TACKLE(),SKILL_STEAL() Shared STRENGTH(),KNOWLEDGE(),MORALE(),SUCCESS_PASS RESULT=0 : SKILL_ATTACK=0 : SKILL_DEFEND=0 Add SKILL_ATTACK,Rnd(KNOWLEDGE(PERSON_ATTACK))/10 : Add SKILL_ATTACK,Rnd(MORALE(PERSON_ATTACK)) Add SKILL_ATTACK,Rnd(SPEED(PERSON_ATTACK)) : Add SKILL_ATTACK,Rnd(SKILL_ART(PERSON_ATTACK)) Add SKILL_DEFEND,Rnd(KNOWLEDGE(PERSON_DEFEND))/10 : Add SKILL_DEFEND,Rnd(MORALE(PERSON_DEFEND)) Add SKILL_DEFEND,Rnd(STRENGTH(PERSON_DEFEND)) If TACTIC=1 Add SKILL_DEFEND,Rnd(SKILL_TACKLE(PERSON_DEFEND)) Else Add SKILL_DEFEND,Rnd(SKILL_STEAL(PERSON_DEFEND)) End If If(SKILL_ATTACK-SKILL_DEFEND)>=SUCCESS_PASS RESULT=1 End If End Proc[RESULT] Procedure PERFORM_TACKLE[WHICH_TEAM,TACKLER,DEFENDER,PERSON_DEFEND,WATCH_THE_GAME,Y_POS,INJURY] Shared KNOWLEDGE(),NAME$(),INJURY_MADE$(),INJURY_MISSED$() FIND_PLAYERS_SHIRT[DEFENDER] : SUB=Param Inc KNOWLEDGE(TACKLER) FIND_IF_PLAYER_IS_INJURED[TACKLER,DEFENDER] : INJURED=Param If INJURED=1 GIVE_PLAYER_AN_INJURY[DEFENDER] BRING_ON_SUBSTITUTE[SUB,WHICH_TEAM] If WATCH_THE_GAME=1 Ink INJURY,3, Text 12,Y_POS,NAME$(TACKLER)+INJURY_MADE$(Rnd(9))+NAME$(DEFENDER) End If Else If WATCH_THE_GAME=1 Ink INJURY,3, Text 12,Y_POS,NAME$(TACKLER)+INJURY_MISSED$(Rnd(9))+NAME$(DEFENDER) End If End If End Proc Procedure FIND_PLAYERS_SHIRT[DEFENDER] Shared SQUAD_ARRAY(),NUMBER_IN_TEAM SHIRT=0 For SQUAD=1 To NUMBER_IN_TEAM*2 If DEFENDER=SQUAD_ARRAY(SQUAD) SHIRT=SQUAD End If Next SQUAD End Proc[SHIRT] Procedure FIND_IF_PLAYER_IS_INJURED[TACKLER,PERSON] Shared STRENGTH(),STAMINA() INJURED=0 INJURY=Rnd(STRENGTH(TACKLER)) POSSIBLE_INJURY=Rnd(STAMINA(PERSON)) If(INJURY-POSSIBLE_INJURY)>45 INJURED=1 End If End Proc[INJURED] Procedure GIVE_PLAYER_AN_INJURY[PERSON] Shared INJURY_LENGTH() INJURY=Rnd(14)+1 If INJURY<=5 INJURY_LENGTH(PERSON)=Rnd(3)+2 GIVE_PLAYER_MORALE[PERSON,3,3,2] End If If INJURY>=6 and INJURY<=9 INJURY_LENGTH(PERSON)=Rnd(5)+3 GIVE_PLAYER_MORALE[PERSON,5,5,2] End If If INJURY>=10 and INJURY<=12 INJURY_LENGTH(PERSON)=Rnd(7)+4 GIVE_PLAYER_MORALE[PERSON,7,7,2] End If If INJURY>=13 and INJURY<=14 INJURY_LENGTH(PERSON)=Rnd(9)+5 GIVE_PLAYER_MORALE[PERSON,9,9,2] End If If INJURY=15 INJURY_LENGTH(PERSON)=Rnd(30)+15 GIVE_PLAYER_MORALE[PERSON,20,20,2] End If End Proc Procedure BRING_ON_SUBSTITUTE[SUBSTITUTE,WHICH_TEAM] Shared KNOWLEDGE(),GAMES_SEASON(),GAMES_CAREER(),SQUAD_ARRAY(),NUMBER_IN_TEAM PERSON=SQUAD_ARRAY(NUMBER_IN_TEAM*WHICH_TEAM) SQUAD_ARRAY(SUBSTITUTE)=PERSON SQUAD_ARRAY(NUMBER_IN_TEAM*WHICH_TEAM)=0 Inc GAMES_CAREER(PERSON) Inc GAMES_SEASON(PERSON) Inc KNOWLEDGE(PERSON) End Proc Procedure GENERATE_LEAGUE_RESULTS Shared GAME_A(),GAME_B(),GAME_C(),GAME_D() Shared CURRENT_WEEK,NUMBER_OF_TEAMS For GENERATE_RESULTS_LOOP=1 To 2 If GENERATE_RESULTS_LOOP=1 WORK_OUT_LEAGUE_FIXTURES[CURRENT_WEEK,0] End If If GENERATE_RESULTS_LOOP=2 WORK_OUT_LEAGUE_FIXTURES[CURRENT_WEEK,NUMBER_OF_TEAMS/2] End If THE_HOME_TEAM=GAME_A(1,0) : THE_AWAY_TEAM=GAME_A(1,1) SEE_IF_USER_WATCHES_MATCH[THE_HOME_TEAM,THE_AWAY_TEAM,1] GENERATE_RESULT[THE_HOME_TEAM,THE_AWAY_TEAM,Param,1] THE_HOME_TEAM=GAME_B(1,0) : THE_AWAY_TEAM=GAME_B(1,1) SEE_IF_USER_WATCHES_MATCH[THE_HOME_TEAM,THE_AWAY_TEAM,1] GENERATE_RESULT[THE_HOME_TEAM,THE_AWAY_TEAM,Param,1] THE_HOME_TEAM=GAME_C(1,0) : THE_AWAY_TEAM=GAME_C(1,1) SEE_IF_USER_WATCHES_MATCH[THE_HOME_TEAM,THE_AWAY_TEAM,1] GENERATE_RESULT[THE_HOME_TEAM,THE_AWAY_TEAM,Param,1] THE_HOME_TEAM=GAME_D(1,0) : THE_AWAY_TEAM=GAME_D(1,1) SEE_IF_USER_WATCHES_MATCH[THE_HOME_TEAM,THE_AWAY_TEAM,1] GENERATE_RESULT[THE_HOME_TEAM,THE_AWAY_TEAM,Param,1] Next GENERATE_RESULTS_LOOP End Proc Procedure SEE_IF_USER_WATCHES_MATCH[THE_HOME_TEAM,THE_AWAY_TEAM,TYPE] Shared TEAMNAME$(),STADIUM$(),CURRENT_WEEK Shared FULL_BOX,EDGE_TOP,EDGE_BOTTOM Screen 2 : Cls 4 : MAKE_BOX_FOR_FIXTURE_SCREEN : Ink 7,3, PLACE_TEXT_CENTRALLY[14,"W e e k "+Str$(CURRENT_WEEK),Screen Width] MAKE_A_BOX[10,24,310,36,0,0,0] MAKE_A_BOX[11,25,309,35,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] If TYPE=1 : MESSAGE$="League Match" : End If If TYPE=16 : MESSAGE$="First Round Cup Match" : End If If TYPE=8 : MESSAGE$="Quarter Final Cup Match" : End If If TYPE=4 : MESSAGE$="Semi Final Cup Match" : End If If TYPE=2 : MESSAGE$="Cup Final" : End If Ink 7,3, : PLACE_TEXT_CENTRALLY[33,MESSAGE$,Screen Width] MAKE_A_BOX[97,51,221,63,0,0,0] : MAKE_A_BOX[98,52,220,62,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Ink 1,3, : PLACE_TEXT_CENTRALLY[60,TEAMNAME$(THE_HOME_TEAM),Screen Width] MAKE_A_BOX[149,76,170,88,0,0,0] : MAKE_A_BOX[150,77,169,87,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Ink 1,3, : PLACE_TEXT_CENTRALLY[85,"V",Screen Width] MAKE_A_BOX[97,100,221,112,0,0,0] : MAKE_A_BOX[98,101,220,111,FULL_BOX,EDGE_TOP,EDGE_BOTTOM] Ink 1,3, : PLACE_TEXT_CENTRALLY[109,TEAMNAME$(THE_AWAY_TEAM),Screen Width] PLACE_TEXT_CENTRALLY[134,"at "+STADIUM$(THE_HOME_TEAM),Screen Width] Ink 7,3, : PLACE_TEXT_CENTRALLY[170,"Watch the commentary?",Screen Width] Screen To Front 2 CHECK_LEFT_RIGHT_CLICK WATCH_THE_GAME=Param End Proc[WATCH_THE_GAME] Procedure FIND_WHICH_TEAMS_PLAY[THE_HOME_TEAM,THE_AWAY_TEAM] Shared CURRENT_TEAM,NUMBER_IN_TEAM INITIALISE_MATCH_SQUAD_ARRAYS[THE_HOME_TEAM,THE_AWAY_TEAM] If THE_HOME_TEAM=CURRENT_TEAM DISPLAY_SQUAD[THE_HOME_TEAM] FIND_WHICH_PLAYER_TO_PICK[THE_HOME_TEAM,1,Param] TRANSFER_TEAM_TO_USER_TEAM[1,NUMBER_IN_TEAM] PICK_COMPUTER_TEAM[THE_HOME_TEAM,THE_AWAY_TEAM] GENERATE_COMPUTER_TACTICS[2] End If If THE_AWAY_TEAM=CURRENT_TEAM DISPLAY_SQUAD[THE_AWAY_TEAM] FIND_WHICH_PLAYER_TO_PICK[THE_AWAY_TEAM,2,Param] TRANSFER_TEAM_TO_USER_TEAM[NUMBER_IN_TEAM+1,NUMBER_IN_TEAM*2] PICK_COMPUTER_TEAM[THE_HOME_TEAM,THE_AWAY_TEAM] GENERATE_COMPUTER_TACTICS[1] End If If(THE_HOME_TEAM<>CURRENT_TEAM) and(THE_AWAY_TEAM<>CURRENT_TEAM) PICK_COMPUTER_TEAM[THE_HOME_TEAM,THE_AWAY_TEAM] GENERATE_COMPUTER_TACTICS[1] End If SQUAD_VARIABLES_UPDATE End Proc Procedure GENERATE_RESULT[THE_HOME_TEAM,THE_AWAY_TEAM,WATCH_THE_GAME,TYPE] Shared TEAMNAME$(),LEAGUE_GOALS(),GOALS_HOME(),GOALS_AWAY() Shared SUCCESS,TEAM_WITH_BALL SUCCESS=0 : TEAM_WITH_BALL=THE_HOME_TEAM FIND_WHICH_TEAMS_PLAY[THE_HOME_TEAM,THE_AWAY_TEAM] Screen 3 Cls 4 : MAKE_MATCH_BOX CALCULATE_GATE_RECEIPTS[THE_HOME_TEAM,THE_AWAY_TEAM] : THE_CROWD=Param Ink 5,3, PLACE_TEXT_CENTRALLY[20,"Attendance: "+Str$(THE_CROWD)-" ",Screen Width] Y_POS=30 : Screen To Front 3 For X=1 To 21 FIND_WHICH_ACTION_HAPPENS[THE_HOME_TEAM,THE_AWAY_TEAM,WATCH_THE_GAME,Y_POS,TYPE] If TYPE=1 Ink 1,3, : Text 154,10,TEAMNAME$(THE_HOME_TEAM)+" "+Str$(LEAGUE_GOALS(THE_HOME_TEAM))-" " Ink 0,3, : Text 350,10,Str$(LEAGUE_GOALS(THE_AWAY_TEAM))-" "+" "+TEAMNAME$(THE_AWAY_TEAM) End If If TYPE=2 Ink 1,3, : Text 154,10,TEAMNAME$(THE_HOME_TEAM)+" "+Str$(GOALS_HOME(THE_HOME_TEAM)+GOALS_AWAY(THE_HOME_TEAM))-" " Ink 0,3, : Text 350,10,Str$(GOALS_AWAY(THE_AWAY_TEAM)+GOALS_HOME(THE_AWAY_TEAM))-" "+" "+TEAMNAME$(THE_AWAY_TEAM) End If Add Y_POS,10 If WATCH_THE_GAME=1 : Wait Rnd(25)+Rnd(24)+10 : End If Next X If TYPE=1 WORK_OUT_THE_RESULTS[THE_HOME_TEAM,THE_AWAY_TEAM] End If If WATCH_THE_GAME=1 : Y_POS=248 : End If If WATCH_THE_GAME=0 : Y_POS=35 : End If Ink 7,3, : PLACE_TEXT_CENTRALLY[Y_POS,"F u l l T i m e",Screen Width] CHECK_FOR_MOUSE_CLICK End Proc Procedure GENERATE_LEG_TWO_RESULTS[THE_HOME_TEAM,THE_AWAY_TEAM,WATCH_THE_GAME,TYPE] Shared TEAMNAME$(),GOALS_HOME(),GOALS_AWAY() Shared SUCCESS,TEAM_WITH_BALL SUCCESS=0 : TEAM_WITH_BALL=THE_HOME_TEAM : TIME_OF_MATCH=21 FIND_WHICH_TEAMS_PLAY[THE_HOME_TEAM,THE_AWAY_TEAM] CALCULATE_GATE_RECEIPTS[THE_HOME_TEAM,THE_AWAY_TEAM] : THE_CROWD=Param Screen 3 Repeat Cls 4 : MAKE_MATCH_BOX Y_POS=30 : Screen To Front 3 Ink 5,3, PLACE_TEXT_CENTRALLY[20,"Attendance: "+Str$(THE_CROWD)-" ",Screen Width] For X=1 To TIME_OF_MATCH FIND_WHICH_ACTION_HAPPENS[THE_HOME_TEAM,THE_AWAY_TEAM,WATCH_THE_GAME,Y_POS,TYPE] Ink 1,3, : Text 154,10,TEAMNAME$(THE_HOME_TEAM)+" "+Str$(GOALS_HOME(THE_HOME_TEAM)+GOALS_AWAY(THE_HOME_TEAM))-" " Ink 0,3, : Text 350,10,Str$(GOALS_AWAY(THE_AWAY_TEAM)+GOALS_HOME(THE_AWAY_TEAM))-" "+" "+TEAMNAME$(THE_AWAY_TEAM) Add Y_POS,10 If WATCH_THE_GAME=1 : Wait Rnd(25)+Rnd(24)+10 : End If Next X If GOALS_HOME(THE_HOME_TEAM)+GOALS_AWAY(THE_HOME_TEAM)=GOALS_HOME(THE_AWAY_TEAM)+GOALS_AWAY(THE_AWAY_TEAM) If WATCH_THE_GAME=1 Ink 7,3, : PLACE_TEXT_CENTRALLY[248,"Match drawn, extra time to be played.",Screen Width] Else Ink 7,3, : PLACE_TEXT_CENTRALLY[35,"Match drawn, extra time to be played.",Screen Width] End If CHECK_FOR_MOUSE_CLICK End If TIME_OF_MATCH=Rnd(11)+10 Until(GOALS_HOME(THE_HOME_TEAM)+GOALS_AWAY(THE_HOME_TEAM))<>(GOALS_HOME(THE_AWAY_TEAM)+GOALS_AWAY(THE_AWAY_TEAM)) If WATCH_THE_GAME=1 : Y_POS=248 : End If If WATCH_THE_GAME=0 : Y_POS=35 : End If Ink 7,3, : PLACE_TEXT_CENTRALLY[Y_POS,"F u l l T i m e",Screen Width] CHECK_FOR_MOUSE_CLICK End Proc Procedure STORE_USER_TEAM_DATA Shared USER_TEAM(),NUMBER_IN_TEAM,FILENAME$ STORE_FILENAME$=FILENAME$-".slamball"+".userteam_data" Open Out 1,STORE_FILENAME$ For PERSON=1 To NUMBER_IN_TEAM Print #1,USER_TEAM(PERSON) Next PERSON Close 1 End Proc Procedure RETRIEVE_USER_TEAM_DATA Shared USER_TEAM(),NUMBER_IN_TEAM,FILENAME$ RETRIEVE_FILENAME$=FILENAME$-".slamball"+".userteam_data" Open In 1,RETRIEVE_FILENAME$ For PERSON=1 To NUMBER_IN_TEAM Input #1,USER_TEAM(PERSON) Next PERSON Close 1 End Proc '******************************************************************** RETRIEVE_INITIAL_STORED_DATA INITIALISE_VARIABLES_WHEN_GAME_LOADS Do INITIALISE_MAIN_MENU_SCREEN QUIT_MENU=0 Repeat MAIN_MENU_SELECTION Until QUIT_MENU=1 INITIALISE_NEW_GAME Repeat PROMOTE_FLAG=0 Repeat MAIN_GAME_MENU_SELECTION If CURRENT_WEEK=29 and PROMOTE_FLAG=0 PROMOTE_AND_RELEGATE End If Until CURRENT_WEEK=SEASON_END or RESIGN_FLAG=MANAGER_HAS_RESIGNED or TEAM_CASH(CURRENT_TEAM)<0 or MANAGER_RATING<CLUB_RATING(CURRENT_TEAM) or MANAGER_AGE=70 CHECK_MANAGER_DETAILS Until RESIGN_FLAG=MANAGER_HAS_RESIGNED Loop